bueno aqui hay un ejemplo casi que completo..
Código:
Dim AdoS As New Recordset
Dim Cxn As Connection
Dim CxnFac As String
Set Cxn = New Connection
Cxn.CursorLocation = adUseClient
CxnFac = "Driver={MySQL ODBC 3.51 Driver};Server=192.168.0.1;Port=3306;Option=131072 ;Stmt=;Database=TuBASE;Uid=TuUsuario;Pwd=TuContras ena";"
Cxn.Open CxnFac ' Abrimos la conexion
Set AdoS = New Recordset
AdoS.Open "Select * From Clientes", Cxn, adOpenStatic, adLockOptimistic ' Abrimos el REcordset y esta listo para usar
espero te sirva..