Alguien sabe que es estoy como lo soluciono!
Gracias por su tiempo
Código:
Option Explicit
Public WithEvents db As rdoConnection
Private Sub boton_conectar_Click()
Dim cadena_conexion
cadena_conexion = "DRIVER={MySQL ODBC 3.51 Driver}; SERVER=" & servidor & "; DATABASE=" & base_de_datos & " ;PWD=" & password & "; UID=" & usuario & ";OPTION=3"
Set db = New rdoConnection
db.Connect = cadena_conexion
db.CursorDriver = rdUseServer
db.EstablishConnection
End Sub

