Conexión a My SQL

Aquí tienes un ejemplo con MySQL.
Lo conectas por el ip del host. Sin ODBC, es una conexión directa.
Suerte.
JarpSoft.
Option Explicit
Public cn As New ADODB.Connection
Public rs As New ADODB.Recordset
Public cmd As New ADODB.Command
Dim fld As ADODB.Field
Sub conexion()
Dim sql As String
cn.ConnectionString = "DRIVER={MySQL ODBC 3.51 Driver};" _
& "SERVER=ip_del_host;" _
& "DATABASE=nombre_de_bd;" _
& "UID=usuario; PWD=passwd; OPTION=3"
cn.Open
sql = "SELECT * FROM " & tbl_origen
rs.Open sql, cn, adOpenDynamic, adLockOptimistic
rs.MoveFirst
Do Until rs.EOF
rs.MoveNext
Loop
End Sub