Bueno has lo que yo....
en u modulo:
Public db As ADODB.Connection
Public rs As ADODB.Recordset
Sub main()
Set db = New ADODB.Connection
db.CursorLocation = adUseClient
db.Open "DRIVER={MYSQL ODBC 3.51 DRIVER};SERVER=LOCALHOST;DATABASE=PRESDEV;UID=ROOT;OPTION=3"
pres_dev.Show
End Sub
y ya esta.....si te funsiona bien sino....si no puede ser.......otra cosa....