Como fazer Procura?

[fabiosc80 0]

Tenho que fazer um botar de pesquisa por nome da empresa no meu projeto mas nao sei como faço.

 

Nunca Fiz.

 

estou usando ADODC

 

vejam como eu tava fazendo e que nao deu certo.

Alguem tem algum exemplo?

 

Private Sub Pesquisa_Click()    Dim Codigo As String    Dim bm As Variant  'variant é um tipo de dado que pode conter qualquer tipo de variável        Empresa = InputBox("Nome da Empresa:", "Pesquisar")    If Codigo = "" Then Exit Sub        With Adodc1.Recordset         bm = .Bookmark 'se nao encontrou o bookmark volta para o registro que estava e nao no primeiro        .MoveFirst  'o find comeca a procura daonde esta o bookmark, por isso tmos que mandar para o começo        .Find "Empresa=" & Codigo        If .EOF Then            MsgBox "Curso não cadastrado!"            .Bookmark = bm 'se nao colocar o cursor fica no eof, e os dados da tela ficam em branco        End If    End WithEnd Sub

[supino 0]

só sei fazer assim acho que é em adodbrstabela.find "emp_nome =" & txtnomeempresa.textobs.rstabela 'recordesetfind 'comando de pesquisaemp_nome 'campo da tabela onde estão os nomes das empresas

[fabiosc80 0]

só sei fazer assim acho que é em adodbrstabela.find "emp_nome =" & txtnomeempresa.textobs.rstabela 'recordesetfind 'comando de pesquisaemp_nome 'campo da tabela onde estão os nomes das empresas

Voce nao teria esse exemplo mais detalhado?Listando inclusive os campos depois?