Hola
Yo lo engo así
Código:
Option Explicit
Public cnn As New ADODB.Connection
Public rs As New ADODB.Recordset
Public Sub IniciarConexion()
With cnn
.CursorLocation = adUseClient
.Open "DRIVER={MySQL ODBC 3.51 Driver};" _
& "SERVER=la IP de tu server;" _
& "DATABASE=tu base ;" _
& "UID=tu usuario de bd;" _
& "PWD=tu password de usuario;" _
& "OPTION=" & 1 + 2 + 8 + 32 + 2048 + 16384
End With
End Sub
tengo este codigo en el que declaro los datos de la conexión. Previamente hay que instalar el driver de mysql, luego en el codigo la das los valores para la conexión, "cnn" es la conexión y "rs" es el recordset para leer los datos una vez hecha la coenxión.
espero te sirva
chelo