Código:
A mi me conecta perfecto, pero a los demás los lleva hacia error.Public Con As ADODB.Connection Public Sub Conectar() On Error GoTo error 'COMPILAR BETA Set Con = New ADODB.Connection Con.ConnectionString = "DRIVER={MySQL ODBC 3.51 Driver};" & "SERVER=xxx;" & " DATABASE=xxx;" & "UID=xxx;PWD=xxx; OPTION=3" Con.CursorLocation = adUseClient Con.Open lblInfo.Caption = "Conectado. Verificando datos..." DoEvents If Not Verifypasswd(txtUser.Text, txtPass.Text) Then lblInfo.Caption = "Datos incorrecto." Else 'lblInfo.Caption = "Correcto." Form2.Show Form2.Caption = "Centro de Soporte FlooderAO # Logueaste como: " & txtUser.Text Unload Me Exit Sub End If Exit Sub error: lblInfo.Caption = "No pudimos conectar. Avisale al admin." 'MsgBox "Error al conectar: " & Err.Description & " String: " & Con.ConnectionString 'End End Sub
No sé que puede ser.. Antes era problema con el acceso remoto del mysql del host, pero ya habilité las IPs, alguna idea?