Popular textbox BD access

[Gilberto Andre Junior]

boa tarde caros colegas, estou aprendendo a programar pois estou convertendo um sistema antigamente em access para visual basic porém estou com dificuldades (que pra vocês deve ser coisa basica) em popular as textbox com os registros específicos das tabelas, eu consegui fazer funcionar porém estou achando que demora para abrir o formulario, alguém poderia me dar uma dica para ficar melhor? Realmente tem bastante informação nas tabelas mas creio que dê para optimizar (corrijam se eu estiver errado ou se tiver algo melhor a ser feito) meu codigo ta da seguinte forma. Tenho um modulo que faz com a conexão do banco de dados que está assim:

Imports System.Data.OleDb
Module mdlAcesso
    Public Function getConnection() As OleDbConnection
        Dim sql As String = "Provider=Microsoft.ACE.OLEDB.12.0;Data Source=" & My.Settings.conexaoBanco
        Return New OleDbConnection(sql)

    End Function
End Module

E no formulario está assim:

Imports System.Data.OleDb
Public Class frmProcesso
    Public Sub PCarregaDados()
        Using con As OleDbConnection = getConnection()
            Try
                con.Open()
                Dim strPasta As String
                strPasta = InputBox("Digite o numero da pasta")
                Dim sql As String = "Select * from Processos WHERE pasta LIKE '%" & strPasta & "%'"
                Dim cmd As New OleDbCommand(sql, con)
                Dim da As New OleDbDataAdapter(cmd)
                Dim dt As New DataTable

                da.Fill(dt)

                txtpasta.Text = dt.Rows(0)("Pasta").ToString
                txtprocesso.Text = dt.Rows(0)("Processo").ToString
                cboobjacao.Text = dt.Rows(0)("Objeto da Ação").ToString
                txtsituacao.Text = dt.Rows(0)("Situação do Processo").ToString
                txttipoacao.Text = dt.Rows(0)("Ação").ToString
                txtvara.Text = dt.Rows(0)("Vara").ToString
                txtforum.Text = dt.Rows(0)("Forum").ToString
                txtarquiv.Text = dt.Rows(0)("DigitalizacaoFisica").ToString
                txtandamento.Text = dt.Rows(0)("Andamento").ToString
                txtresumoprocesso.Text = dt.Rows(0)("Resumo Processo").ToString
            Catch ex As Exception
                MsgBox("Ocorreu um erro ao carregar os dados", MsgBoxStyle.Critical)
            End Try
        End Using
    End Sub

    Private Sub frmProcesso_Load(sender As Object, e As EventArgs) Handles MyBase.Load
        PCarregaDados()
    End Sub

End Class