Consulta com textbox, VB.NET

[luk.4zr]

Pessoal bom dia, fiz um formulário simples, onde eu colocaria o código de uma tag e iria puxar no banco de dados, que estou usando o access, o nome da pessoa o e-mail e mostraria essas informações em outras 2 textbox.
Fiz um modulo. Neste modulo tenho o seguinte:

Imports System.Data
Imports System.Data.OleDb
Module mdlAcesso
    Public Function GetConnection() As OleDbConnection
        Dim sql As String = "Provider=Microsoft.ACE.OLEDB.12.0;Data Source=D:\Lucas\VB.Net\Preenchendo Text com ComboBox\Preencher_ComboBox\Preencher.accdb"
        Return New OleDbConnection(sql)
    End Function
End Module

 

e no formulário esta assim:

Imports System.Data
Imports System.Data.OleDb

Public Class Form1
    Private Sub PLeDados()
        Dim dr As OleDbDataReader = Nothing
        Using con As OleDbConnection = GetConnection()
            Try
                con.Open()
                Dim sql As String = "SELECT * FROM combo WHERE codBD=" & txtprimeiro.Text
                Dim cmd As OleDbCommand = New OleDbCommand(sql, con)
                dr = cmd.ExecuteReader
                dr.Read()
                txtNome.Text = dr.Item("nomeBD")
                txtEmail.Text = dr.Item("emailBD")
            Catch ex As Exception
            Finally
                con.Close()
            End Try
        End Using
    End Sub
    Private Sub txtprimeiro_TextChanged(sender As Object, e As EventArgs) Handles txtprimeiro.TextChanged
        PLeDados()
    End Sub
End Class

 

vocês poderiam me ajudar, por favor.