bueno yo lo realizo de la siguiente manera:
Código:
Dim AdoS As New Recordset
Dim Cxn As Connection
Dim CxnFac as String
CxnFac = "Driver={MySQL ODBC 3.51 Driver};Server=192.168.0.1;Port=3306;Option=131072;Stmt=;Database=TuBASE;Uid=TuUsuario;Pwd=TuContrasena";"
Cxn.Open CxnFac ' Abrimos la conexion
Set AdoS = New Recordset
AdoS.Open "SELECT `cxc`.`no_factura`, `cxc`.`nit_cliente`, `cxc`.`no_ingreso`, `cxc`.`fecha`, `cxc`.`total`, `cxc`.`descripcion`, `cxc`.`observaciones`, `cxc`.`cancelado` FROM `cxc` WHERE (`cxc`.`cancelado` = 0) AND (`cxc`.`nit_cliente` = '" & Nit & "') ORDER BY `cxc`.`fecha`", Cxn, adOpenStatic, adLockOptimistic ' Abrimos el REcordset y esta listo para usar
nos vemos espero te sirva el ejemplo..