Error al conectar a MySql

[Alwar]

stoy intentado hacer una aplicacion q conecte a una base de datos en un servidor, pero no consigo conectarme y no se porque.

Código:

Public Function CrearConexion() As Boolean
Dim strConexion$
    'Instanciamos el objeto
    Set oConexion = New ADODB.Connection
    
    'Creamos el String de conexion
    strConexion = "driver={MySQL ODBC 3.51 Driver};" & _
                  "Server= 63.246.xxx.xxx;" & _
                  "Data Source=b2l1640_DataAlwar;" & _
                  "User Id=b2l1640_alwar;" & _
                  "Password=xxxxxx"
    
    'Nos conectamos con la base de datos
    oConexion.Open strConexion
    If oConexion.State = adStateOpen Then CrearConexion = True

Me da este error:


Saludos!