'Me conecto a la base de datos MySQL
Set conn = New ADODB.Connection
conn.ConnectionString = "DRIVER={MySQL ODBC 3.51 Driver};SERVER=pppppp;PORT=3306;DATABASE=pppp;USER =pppp;PASSWORD=pppp;OPTION=3;"
conn.Open
Tene que tener los drives ODBC de MySQL
www.mysql.com