Como Conectarse a una Base de datos MySQL con Visual Basic

Yo Instale la Version “MySQL Connector/ODBC

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
------------------------------------------------------------------------------------------------------------------------------------------------------
Eso es todo un poderoso Motor de Base Datos y Gratuito