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!