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