si lo bas a hacer con ado seria algo asi...
esta una conexion hacia mysql
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=10.10.10.50;Port=3306;Option=131072;Stmt=;Database=recepfac;Uid=miusert;Pwd=mipass;"
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
MsgBox AdoS!nombre
nos vemos..