MYSQL y Visual

[abrahamvj]

Dim cnn As ADODB.Connection
Dim rst As ADODB.Recordset
Dim sql$

Set cnn = New ADODB.Connection
cnn.ConnectionString = "DRIVER={MySQL ODBC 3.51 Driver};" _
& "SERVER=11.111.11.11;" _
& "DATABASE=TUBASEDEDATOS;" _
& "UID=tuusuario;PWD=tuclave;PORT=3306;OPTION=131072 "

cnn.Open

sql$ = "SELECT * FROM tutabla"

Set rst = New ADODB.Recordset

With rst
.CursorLocation = adUseClient
.CursorType = adOpenKeyset
.LockType = adLockOptimistic
.Open sql$, cnn, , , adCmdText
End With

OBVIAMENTE tienes que bajarte el "MySQL ODBC 3.51 Driver"

Abraham