prova così:
codice:
Set cn = New ADODB.Connection
    cn.Open "DRIVER=MySQL ODBC 3.51 Driver; SERVER=xxx.xxx.xxx.xxx; PORT=3306; DATABASE=nomedatabase; uid=nomeuid;pwd=nomepassword; OPTION=3;"
e fammi sapere....