Colabora en los FAQ. Ayudarás a la comunidad y esta te lo agradecerá.
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