Si tu conexion es local debes estar poniendo mal algun dato.
Prueba tambien con las librerias:
Cita: Microsoft ActiveX Data Objects 2.8 Library
Microsoft ActiveX Data Objects Recordset 2.8 Library.
y prueba con este codigo
Cita: 'variables de conexion
dbSrv = "SERVER=x.x.x.x;"
dbNmb = "DATABASE=midb;"
dbPwd = "PASSWORD=mipwd;"
dbUsr = "USER=miusr;"
dbPto = "PORT=3306;"
dbOpc = "OPTION=3;"
cnxString = "DRIVER={MySQL ODBC 5.1 Driver};" _
+ dbSrv + dbNmb + dbPto + dbUsr + dbPwd + dbOpc
On Error GoTo Error
'cn.Open
Set cn = rs.ActiveConnection
On Error GoTo Error
'cn.Open
Set cn = rs.ActiveConnection
Set rs = New ADODB.Recordset
rs.Open "SELECT DATE_FORMAT( now( ) , '%r') AS hora", cnxString, adOpenStatic, adLockOptimistic
MsgBox "Conexión establecida!!!" + rs.Fields(0), vbExclamation, "Conexión"
'cerramos la conexion
rs.Close
' Liberamos los objetos para limpiar la memoria.
Set rs = Nothing
Set cn = Nothing
Exit Sub
Error:
MsgBox "Nº de error: " & Err.Number & " | " & Err.Description, vbCritical, "Control de errores"
Err.Clear
P.D. Prueba la conexion de manera local y si funciona vamos a ver la parte remota luego