(ayuda) No Me Muestra Datos De Una Consulta Con Db Mysql

[aldo1982]

bueps no se ke mas hacer sigue sin mostrarme datos :S
ahora probe sin el where como para ke me muestre todos los datos pero ni medio de bola ke me da .. bue aca pongo el codigo pa ke vean


Private Sub Command1_Click()
Set cxnfac = New ADODB.Connection
cxnfac.ConnectionString = "Driver={MySQL ODBC 3.51 Driver};Server=localhost;Port=3306;Option=131072;S tmt=;Database=l2jdb;" & "uid=" & Form1.Text1 & ";" & "pwd=" & Form1.Text2 & ";"
cxnfac.Open

SQL = "select price from merchant_buylists"

Set rs = cxnfac.Execute(SQL, , adCmdText)

Do While Not rs.EOF
List1.AddItem rs!price
rs.MoveNext
Loop
rs.Close

End Sub