Visual Basic - chequense este codigo???

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

Private 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

Asi utilizo el Ado o mejor dicho, una conexion directa, sin Ado

Set Conexion = New ADODB.Connection
Set Resultado = New ADODB.Recordset

Conexion.CursorLocation = adUseClient

Conexion.ConnectionString = "DRIVER={MySQL ODBC 3.51 Driver};" _
& "SERVER=Host;" _
& "DATABASE=BaseDeDatos;" _
& "UID=Usuario;" _
& "PWD=Clave;" _
& "OPTION=" & 1 + 2 + 8 + 32 + 2048 + 16384

Resultado.Open "SELECT * FROM Tabla WHERE Categoria='" & buscar & "'", Conexion

If Resultado.RecordCount > 0 Then
Resultado.MoveFirst
Do
List1.AddItem Resultado.Fields("NombreLicor")
Resultado.MoveNext
Loop Until Resultado.EOF
End If