Erro tela de Consulta

[Esobreiras]

Pessoal, estou tentando fazer um tela de pesquisa mas está com erro, alguém pode me ajudar ?

 

Public 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 ....

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

            TextFuncao.Text = ds.Tables("busca").Rows(0).Item(1)  --> este campo tem que trazer a informação, quando eu digitar o nome do Funcionário.

        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

[Graymalkin]

Qual o erro mostrado? De qualquer maneira, acho que faltam as aspas simples ao redor do que é procurado, se o campo é do tipo texto. Então experimente alterar a seguinte linha:

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

E veja se dá certo.

Abraços!