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