Visual Basic - busqueda en datagrid

HOLAS
TENGO UN PROBLEMA, LO QUE QUIERO HACER ES LO SIGUIENTE, TENGO EN UN DATAGRID UN LISTADO DE MI TABLA CLIENTES(QUE ETA EN ACCESS),

LO QUE QUIERO HACER ES EN UN TEXTBOX DIGITAR LA PRIMERA LETRA DE CUALQUIER APELLIDO Y QUE EL PUNTERO DEL DATAGRID BAJE O SUBA SEGUN LA LETRA DEL APELLIDO QUE YO ESTOY DIGITANDO EN EL TEXTBOX, QUE LO SOMBREE COMO SELECCIONANDOLO(SI ES QUE SE PUEDE HACER ESO) PERO QUE EL RESTO DE LOS REGISTROS QUE NO SE BORREN QUE CONTINUEN AHI EN EL DATAGRID

SOLO EL PUNTERO DEL DATAGRIG DEBE BAJAR O SUBIR AL PRIMER REGISTRO QUE SEA SEGUN LA LETRA O LETRAS QUE VOY DIGITANDO EN EL TEXTBOX, Y ESTO QUIERO HACERLOCON EL ADODB

GRACIAS POR SU AYUDA!!!!!!!!!!!!

supongo que abres algún recordset para pasarlo al DataGrid, asi que para ubicarte en alguna fila en específico del datagrid, posiciona el puntero en el recorset y asi se hará en el datagrid.

Por ejemplo si tienes

Set DataGrid1.DataSource = Rs

Y haces

Rs.MoveLast

El puntero de tu datagrid se irá hasta el último registro. Así que para posicionar el puntero del datagrid conforme vayas escribiendo en un textbox, has uso del evento KeyPress y cada vez que vayas pulsando una tecla ve buscando en el RecordSet el registro cuyo campo (por el que hagas la búsqueda ) se parezca más al contenido del textbox.

Usa el método FIND y el operador LIKE

Por ejemplo (siempre y cuando en tu consulta exista un campo llamado CAMPO1 y éste sea de tipo string)

busqueda = "campo1 Like " & Text1.Text
Rs.MoveFirst
On Error Resume Next
Rs.Find busqueda
If Err.Number or Rs.Eof or Rs.Bof Then
' ---> El valor de Text1.Text No fue encontrado
Else
'----> El Valor de Text1.Text si se parece a alguno de los registros
End If
Err.Clear
On Error Goto 0

Suerte

HOLA SABES NO FUNCIONA EN LA PARTE DONDE ME DICES El valor de Text1.Text No fue encontrado AHI LE PONGO UN MSGBOX
CUANDO EJECUTO Y ESCRIBO ME MANDA EL MENSAJE Y NO ME BUSCA NADA

AYUDAME PORFA
GRACIAS

HOLA SABES NO FUNCIONA EN LA PARTE DONDE ME DICES El valor de Text1.Text No fue encontrado AHI LE PONGO UN MSGBOX
CUANDO EJECUTO Y ESCRIBO ME MANDA EL MENSAJE Y NO ME BUSCA NADA

AYUDAME PORFA
GRACIAS