Como puedo volver actual el resgistro de una base de datos al selec grupo en listbox?

[ALFREDVB]

Tengo una base de 400 registros en el cual selecciono algunos solamente, y para facilitar la busqueda quisiera poner un list o dblist auxiliar en el cual seleccione por grupos ya sea alfabeticamente para que ubique el registro actual en un dbgrid enlazado y asi facilitar la busqueda manual. No tengo idea clara como hacerlo ni que codigo incluiria. Estoy utilizando dao. Muchas gracias por los comentarios que puedan ayudarme.

[culd]

Primero tenes que crear tu SELECT de busqueda...

Luego en el ListBox tenes cargado los diferentes metodos de busqueda y en el evento Click del listbox verificas que index hiso click para conocer el metodo de busqueda y ahi mandas el SELECT.

[ALFREDVB]

ANTES QUE NADA GRACIAS POR LA RESPUESTA, FUNCIONA MUY BIEN, YA ME ESTABA HACIENDO LIOS CON EL DBLIST.
FUNCIONO COMO QUERIA LO ENSAYE CON ESTE CODIGO DEL SIGUIENTE MODO:

Private Sub Form_Load()
List1.AddItem "Vacuno", 0
List1.AddItem "Azúcares, féculas, cereales, legumbres y", 1
End Sub

Private Sub List1_Click()
If List1.ListIndex = 0 Then
Data1.Recordset.FindFirst "TIPO ='Vacuno'"
End If
If List1.ListIndex = 1 Then
Data1.Recordset.FindFirst "TIPO ='Azúcares, féculas, cereales, legumbres y'"
End If
End Sub
AL EJECUTARLO Y DAR CLICK EN UN ELEMENTO DEL LISTBOX ME UBICA EL CURSOR EN EL PRIMER ELEMENTO DEL GRUPO DE REGISTROS QUE QUIERO EXPLORAR QUE ES LO QUE YO QUERIA.....BY GRACIAS

[pkj]

Solo por si existe la posibilidad de que estés usando el código de ese modo, me voy a permitir comentarte, sin ánimo de molestar, que el código de la Sub List1_Click, según creo yo, que de bases de datos no tengo idea pero de ListBox algo más si sé, deberías hacerlo, (e imagino que ya lo haces), de este modo:

Private Sub List1_Click()
Data1.Recordset.FindFirst "TIPO ='" & List1.List(List1.ListIndex) & "'"
End Sub

Automatizando así el trabajo.

Saludos

[ALFREDVB]

SI ES MUY CIERTO QUE SIMPLIFICA EL CODIGO USANDO:

Data1.Recordset.FindFirst "TIPO ='" & List1.List(List1.ListIndex) & "'"

QUEDA MAS AFINADO

AGRADEZCO MUCHO EL COMENTARIO... GRACIAS