Si tienes alguna idea o sugerencia, contacta con algún moderador o administrador.
Public con As ConnectionPublic STRCONEX As StringPublic Function conectar()On Error GoTo ERRORSet con = New ADODB.ConnectionSTRCONEX = "DSN=;UID=ROOT;PWD=;"con.ConnectionTimeout = 5con.Open STRCONEXExit FunctionERROR:MsgBox "Error en la Coneccion"'con.ConnectionString = "driver={MySQL ODBC 3.51 Driver};server=localhost;uid=root;pwd=;database=;c onnection="'con.OpenEnd Function