Intenta ser respetuoso con el resto de los usuarios o podrías ser sancionado.
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