Conexión DSNLess a MySql utilizando MySql ODBC 3.51

Dim conn
Set conn = CreateObject("ADODB.Connection")
conn.Open "Driver={MySQL ODBC 3.51 Driver};Server=servidor;Database=base;User=usuario;Password=password;Port=puerto;Option=4;"

msgbox "ok!"