Como fazer para pesquisar Nome do cadastro atravez do comando select

Question

galera boa tarde voces tao bem? bom estou querendo fazer uma pesquisar de nomes de cadastro atraz do campo combo box onde eu digito o nome e aparece as informacao nos text box segue do codigo

 Private Sub PCarregaDadosNomes()
        Using con As OleDbConnection = geetConectionCadClientesFotos()

            Try
                con.Open()
                Dim sql As String = "SELECT nome FROM usuarios WHERE codigo="
                Dim cmd As OleDbCommand = New OleDbCommand(sql, con)
                Dim da As OleDbDataAdapter = New OleDbDataAdapter(cmd)
                Dim dt As DataTable = New DataTable
                da.Fill(dt)
                cmbPesquisar.DataSource = dt


            Catch ex As Exception
                MsgBox(ex.Message)
            Finally
                con.Close()
            End Try





        End Using





    End Sub

---

XD

Answer 1

 Private Sub PCarregaDadosNomes()
        Using con As OleDbConnection = geetConectionCadClientesFotos()

            Try
                con.Open()
                Dim sql As String = "SELECT nome FROM usuarios WHERE codigo= @codigo"
                Dim cmd As OleDbCommand = New OleDbCommand(sql, con)
cmd.Parameters.AddWithValue("@codigo", 1001)
Dim da As OleDbDataAdapter = New OleDbDataAdapter(cmd)
                Dim dt As DataTable = New DataTable
                da.Fill(dt)
                
cmbPesquisar.DataSource = dt


            Catch ex As Exception
                MsgBox(ex.Message)
            Finally
                con.Close()
            End Try





        End Using





    End Sub

Answer 2

sim mais n esta aparecendo a pesquisa no data griew tem algum codigo que coloco tbm para aparecer as pesquisa do combo box nos text box tipo nome senha email e tal?

---

XD

Answer 3

cmbPesquisar.DataSource = dt

cmbPesquisar.DataBind()

Answer 4

nao funciona disse que nao é membro da form atual

---

XD