Visual Basic - Problema con las busquedas

Hola, estoy hsciendo un programa en el cual tengo un buscador y para ello utilizo un seek, el problema biene cuando en la base de datos hay mas de un nombre igual al que yo busco, habia pensado que cuando el seek encuentra el nombre, si hay mas de uno igual se habiliten unas flechas o botones para poder ir hacia delante, al siguiente que tenga el mismo nombre pero no se como hacerlo.

No se si me he explicado bien, espero que si.
Os agradeceria mucho la ayuda.

Un Saludo

VIERTE EL CONTENIDO DE LA BUSQUEDA SEEK EN UN GRID, CON LO CUAL SIEMPRE TENDRAS TODOS LOS REGISTROS QUE ENCUENTRE.

JAGUAR

bueno si estas usando ado puedes crear un filtro, y usar los botones para poderte desplazar por los registro que contenga la condiccion de busqueda, espero que te sirva

Voy a probar las dos cosas, muchisimas gracias por las molestias.
Un Saludo
ITZIAR

Hola de nuevo, debo ser muuuuyyyyyyyyyy torpe :·) pero no me sale lo que yo quiero.
Mi codigo es este:
Private Sub nombre_LostFocus()
If nombre.Text <> "" Then
If opcion = 2 Or opcion = 3 Or opcion = 4 Then
tabla.Index = "nombre"
tabla.Seek "=", nombre.Text
If tabla.NoMatch = True Then
MsgBox ("ESE OPERARIO NO EXISTE")
nombre.Text = " "
nombre.SetFocus
Else
cargarcampos
tabla.Edit
End If
End If
End If
End Sub

Entonces yo quiero poner una condición para cuando haya más de un nombre igual en la BD se me activen las flechas y poder ver los datos de la siguiente persona con el mismo nombre.
En las flechas he puesto:

dato.recordset. moveNext /moveprevious

Muchas gracias de nuevo.

Un Saludo

Yo enlazo en DbCombo a un control Data. De esta forma cuando tecleo sobre el Dbcombo se despliega éste y se va situando en el primero que encuentra. A partir de ahí, con las teclas del cursor puedes desplazarte al mismo tiempo que te enseña los datos correspondientes.

Private Sub text1_LostFocus()
DBCombo1.Visible = true
Set DataConsulta.Recordset = MiBase.OpenRecordset( _
"SELECT nombre,calle,ciudad FROM Mitabla _
ORDER BY nombre,ciudad,calle DESC", dbOpenDynaset)
DBCombo1.BoundColumn = "nombre"
DBCombo1.Refresh
DBCombo1.ListField = "nombre"
DBCombo1.text = ""
DataConsulta.Refresh
End Sub

Private Sub DBCombo1_Change()
DBCombo1.MatchEntry = dblExtendedMatching
DataConsulta.Recordset.Bookmark = DBCombo1.SelectedItem
Text1.text = DataConsulta.Recordset!nombre
Text2.text = DataConsulta.Recordset!calle
Text3.text = DataConsulta.Recordset!ciudad
End Sub

Espero que te sirva, con las modificaciones pertinentes, claro.

Saludos.

Pedro