conecta vbasic con mysql

[Sir Matrix]

Holaa. acá va el codigo..(el que va cuando abro un recordset) :

Private Sub Form_Load()
Dim sql As String
Dim rs As ADODB.Recordset
Set rs = CreateObject("ADODB.Recordset")

Call abrirBase

sql = "select * from vacuna"
rs.Open sql, Base, adOpenKeyset, adLockOptimistic


'Si no encontramos resultados de búsqueda, enviamos mensaje
If rs.EOF And rs.BOF Then
MsgBox "No se encontraron resultados de búsqueda", vbInformation, "Mensaje Sistema"
Else 'si hay resultados:

'llenamos list view con registros de la base
LvwValores.ListItems.Clear
While Not rs.EOF And Not rs.BOF


Set Item = LvwValores.ListItems.Add
Item.Text = rs!nombrevacuna & ""
Item.Tag = "0"
Item.SubItems(1) = rs!dosis & ""
Item.SubItems(2) = rs!precio & ""
rs.MoveNext
Wend
End If

rs.Close
Set rs = Nothing

End Sub


' Y ACA ESTA LA CONEXION, QUE YO PUSE EN UN MODULO:

'Esta variable la declaro como global para que esté disponile en todo el proyecto
Global Base As ADODB.Connection

Function abrirBase()

Set Base = New ADODB.Connection

'Conexión para SQL SERVER
'Base.Open ("Driver={SQL Server};Description=sqlserver; SERVER=servidor; UID=;PWD=;DATABASE=vacunas")

'Conexión para MYSQL
Base.Open ("Driver={Mysql odbc 3.51 driver};Description=MySQL; SERVER=servidor; UID=Administrador;PWD=;DATABASE=test")

End Function


Espero que te sirva.. saludos