SQL - PREENCHER TEXTBOX

 Imports System.Data.OleDb
Module Ligacao_BD
    Public Ligacao As New OleDbConnection

Public Sub AbrirBD()
        Try
            Ligacao.ConnectionString = [Ô]Provider=Microsoft.Jet.OLEDB.4.0;Data Source=[Ô] & My.Application.Info.DirectoryPath & [Ô]\Folha.mdb[Ô]
            Ligacao.Open()
        Catch ex As Exception
            STR = [Ô]Base de dados não encontrada !   [Ô]
            MessageBox.Show(STR.ToString, [Ô] Atenção ![Ô], MessageBoxButtons.OK, MessageBoxIcon.Error)
            End
        End Try
    End Sub

Public Sub Mostrar_Valores(ByVal pSQL As String)
        Dim reader As OleDbDataReader
        Dim oCmd As OleDbCommand = Ligacao.CreateCommand()
        oCmd.CommandText = [Ô]SELECT * FROM FolhaLab WHERE ID LIKE [ô][Ô] & pSQL.ToString & [Ô]%[ô][Ô]
        reader = oCmd.ExecuteReader

        Try
            While reader.Read
                RegistoH.Caixa_Nome.Text = reader([Ô]Nome[Ô])
                RegistoH.Caixa_Razao.Text = reader([Ô]Razao[Ô])
                RegistoH.Caixa_Piso.Text = reader([Ô]Piso[Ô])
                RegistoH.Caixa_Empresa.Text = reader([Ô]Empresa[Ô])
            End While
        Catch ex As Exception
            MessageBox.Show([Ô]Erro descrição : [Ô] & vbCrLf & ex.Message & vbCrLf, [Ô]Atenção[Ô], MessageBoxButtons.OK, MessageBoxIcon.Error)
        End Try
    End Sub
End Module

[ô]No Formulário
[ô]Criei um botão para testar a rotina 

Public Class RegistoH
Private Sub Button1_Click(sender As System.Object, e As System.EventArgs) Handles Button1.Click
        Mostrar_Valores(Caixa_Nome.Text)
    End Sub
End Class