Como Conectarse a una Base de datos MySQL usando ADO
3 agosto 2010 por Jhonnyf
A diferencia de otras bases de datos, para conectarse a esta, es necesario bajar un DRIVER ODBC desde la Pagina de MySQL
aqui la URL: MySQL :: MySQL Connector/ODBC
Yo he Instalado la Version “MySQL Connector/ODBC 3.51″ (al ultima cuando se escribio este Tema)
Una vez Instalado (Next o Siguiente a todo) ya tendremos el Proveedor instalado 
__________________________________
De ahi es el mismo codigo que se usa para conectarse a cualquier Motor Usando ADO
Paso 1.- Hacer la Referencia a la Libreria ADO
Paso 2.- Escribir el Codigo
Dim cn As Connection
Dim rs As Recordset
Private Sub Form_Load()
Const strServidor = "localhost"
Const strBaseDatos = "basededatos"
Const strPassword = "mypassword"
Const strUsuario = "root"
Set cn = New Connection
cn.ConnectionString = "DRIVER={MySQL ODBC 3.51 Driver}; SERVER=" & strServidor & _
"; DATABASE=" & strBaseDatos & _
"; User=" & strUsuario & _
"; Password=" & strPassword & "; OPTION=3"
cn.Open
Set rs = New Recordset
rs.Open "select * from Tabla", cn, adOpenStatic
Me.Caption = rs.Fields(0).Value
cn.Close
End Sub
Dim rs As Recordset
Private Sub Form_Load()
Const strServidor = "localhost"
Const strBaseDatos = "basededatos"
Const strPassword = "mypassword"
Const strUsuario = "root"
Set cn = New Connection
cn.ConnectionString = "DRIVER={MySQL ODBC 3.51 Driver}; SERVER=" & strServidor & _
"; DATABASE=" & strBaseDatos & _
"; User=" & strUsuario & _
"; Password=" & strPassword & "; OPTION=3"
cn.Open
Set rs = New Recordset
rs.Open "select * from Tabla", cn, adOpenStatic
Me.Caption = rs.Fields(0).Value
cn.Close
End Sub
Eso es todo 
, un poderoso Motor de Base Datos y Gratuito 