Visual Basic para Aplicaciones - como buscar en access

esta busqueda se hace cuando se utiliza una coneccion utlizando el ADODB
y utilices un datagrid.
cuando ya allas realizado la la coneccion y referenciado el datagrid a tu tabla que esta guardada en acces... programas este pequeño codigo en el boton......y el sistema hace la busque y te los muestra en pantalla..

Private Sub botonbuscar_Click(index As Integer)
Dim b As String

str1 = rscel.Bookmark
b = InputBox("INGRESE EL NOMBRE DEL CLIENTE.", "SISTEMA DE SEGURIDAD")
rscel.MoveFirst
rscel.Find "nom_cliente='" & Trim(b) & "'"
If rscel.EOF Then
MsgBox "EL cliente NO EXISTE", vbCritical, "SISTEMA DE SEGURIDAD"
rscel.Bookmark = srt1
End If
llenarcampospro
habilitar
End Sub
......................................................................................................................................................
nota: para este tipo de busqueda se tiene que teclear el dato igual que como esta en la tabla a buscar en el inputbox.

espero y les sirva de algo----