Fazer Busca Deixando O Resultado Selecionado No Grid

[Macêdo]

Private Sub Command7_Click()
If (DataGrid1.SelBookmarks.Count <> 0) Then
   DataGrid1.SelBookmarks.Remove 0
End If
If Adodc1.Recordset.RecordCount <> 0 Then
  Adodc1.Recordset.MoveFirst
  Adodc1.Recordset.Find "campo = '" & Text20.Text & "'"
  If Adodc1.Recordset.EOF Then
    MsgBox "Nome não registrado !", vbOKOnly, "Atenção"
  Else
    MsgBox "Encontrado!", vbOKOnly, "Atenção"
    DataGrid1.SelBookmarks.Add Adodc1.Recordset.Bookmark
  End If
End If
End sub

[Anderson Fernandes]

Adodc1.Recordset.Find "campo = '" & Text20.Text & "'"

aqui tambem é possivel usar a instrução LIKE tipo:

Adodc1.Recordset.Find "campo like '*" & Text20.Text & "*'"

[Lucas Lima]

Usei seu Codigo em Meu Programa e Deu certo

Apenas para pesquisa na coluna Codigo

Como faço pra fazer a mesma pesquisa em outras colunas da tabela

que são por textos?