Visual Basic - Ayuda con esto!!!!

chequen este codigo y diganme por que no funciona....

rivate Sub Command1_Click(Index As Integer)
Dim x$
Select Case Index
Case 0
List1.Clear
buscar = "Brandy"
Case 1
List1.Clear
buscar = "whisky"
Case 2
List1.Clear
buscar = "Ron"
Case 3
List1.Clear
buscar = "Tequila"
Case 4
List1.Clear
buscar = "Cervezas"
Case 5
List1.Clear
buscar = "Refrescos"
Case 6
List1.Clear
buscar = "Vodka"
Case 7
List1.Clear
buscar = "Vino"
Case 8
List1.Clear
buscar = "Cigarros"
Case 9
List1.Clear
buscar = "Mezclas"
Case 10
List1.Clear
buscar = "Snacks"
Case 11
List1.Clear
buscar = "Otros"
End Select
'----------------------------------------------------------
--ADODB--
CON ESTE LO QUIERO HACER PERO NO LLENA EL LIST CON TODOS LOS LICORES DE LA CATEGORIA QUE SE GUARDA EN "BUSCAR", SOLO PONE 1 O 4 LICORES Y DEBERIA LLENAR TODO EL LIST CON TODOS LOS LICORES QUE EXISTA EN LA BD DE LA CATEGORIA QUE SE ESTA BUSCANDO
'rs.MoveFirst
'rs.Find ("Categoria='" & buscar & "'")
'If Not (rs.EOF Or rs.BOF) Then
' Do While (rs!Categoria = buscar)
' List1.AddItem rs!Nombrelicor
' rs.MoveNext
' If rs.EOF Then
' Exit Do
' End If
' Loop
'End If
'---------------------------------------------------------
--ADODC--
CON ESTE ME DA ERRO "91" Y SE POSISCIONA
AQI-------->'AdoLista.Recordset.MoveFirst
'AdoLista.Recordset.Find ("Categoria='" & buscar & "'")
'If Not (AdoLista.Recordset.EOF Or AdoLista.Recordset.BOF) Then
' Do While (AdoLista.Recordset!Categoria = buscar)
' List1.AddItem AdoLista.Recordset!Nombrelicor
' AdoLista.Recordset.MoveNext
' If AdoLista.Recordset.EOF Then
' Exit Do
' End If
' Loop
'End If
'----------------------------------------------------------
--CONTROL DATA---
CON ESTE CODIGO SI FUNCIONA MUY BIEN
datalicor.Recordset.Index = "Categoria"
datalicor.Recordset.Seek "=", buscar
If Not datalicor.Recordset.NoMatch Then
Do While (datalicor.Recordset("Categoria") = buscar)
List1.AddItem datalicor.Recordset("NombreLicor")
datalicor.Recordset.MoveNext
If datalicor.Recordset.EOF Then
Exit Do
End If
Loop

ESPERO ME PUEDAN AYUDAR CON ESTE PROBLEMA
End If

End Sub

No seria mejor:
rs.Filter = "Categoria = '" & buscar & "'"