Erro tela de Consulta

[Esobreiras]

Bom dia, estou tentando fazer um tela de consulta mas não está funcionando, alguém pode me ajudar ?

 

Segue o codigo.

 

ublic Class Form1

 

 

    Private Sub Button1_Click(sender As Object, e As EventArgs) HandlesButton1.Click

      

        Dim conexao As New OleDb.OleDbConnection

        Dim ds As New DataSet

        Dim da As OleDb.OleDbDataAdapter

        Dim sqlstr As String

 

        conexao.ConnectionString = "Provider=Microsoft.ACE.OLEDB.12.0;Data Source=C:\Users\essobreira\Desktop\funcionario.accdb"

 

        conexao.Open()

        sqlstr = "SELECT FUNCAO FROM FUNCIONARIO WHERE NOME = " & TextNome.Text

 

 

        da = New OleDb.OleDbDataAdapter(sqlstr, conexao)

        da.Fill(ds, "busca") 'APELIDO’ ---> Erro acontece aqui, não sei porque ....

        If ds.Tables("busca").Rows.Count > 0 Then

            TextFuncao.Text = ds.Tables("busca").Rows(0).Item(1)

        Else

            MessageBox.Show("LOJA NÃO LOCALIZADA")

        End If

        conexao.Close()

 

    End Sub

 

    Private Sub Button2_Click(sender As Object, e As EventArgs) HandlesButton2.Click

 

        End

 

    End Sub

End Class