Código:
Me da este error: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

Saludos!

