Solo tienes que tener cargado el odbc de MySql, la cual la descargas desde el sitio (
http://www.mysql.com). En VB creas un nuevo proyecto, le colocas un control data. Y listo solo tienes que comenzar a programar. Te recomiendo que leas la documentación de ODBC para MySql en las ultimas páginas encontraras información sobre ADO, DAO y RDO. Las formas para utilizar Mysql Con VB. Te envío algo para que te hagas la idea:
Public ws As Workspace
Public conn As Connection
Public recor As Recordset
Public Function conecta(cBD As String, cTabla As String, cIp As String, cUsr As String, cPass As String) As Boolean
Dim str As String
Dim nCont As Integer
On Error GoTo err
nCont = 0
Set ws = DBEngine.CreateWorkspace("", cUsr, cPass, dbUseODBC)
str = "ODBC;DSN=MySQL;DESC=MySQL;" _
& "DATABASE=" + cBD + ";SERVER=" + cIp + ";UID=" + cUsr _
& ";PASSWORD=" + cPass + ";PORT=3306;OPTION=3;STMT=; "
Set conn = ws.OpenConnection("conecta", dbDriverNoPrompt, False, str)
Set recor = conn.OpenRecordset("select * from " + cTabla, dbOpenDynamic)
On Error GoTo 0
conecta = True
Exit Function
err:
nCont = nCont + 1
If nCont > 10 Then
conecta = False
Exit Function
End If
Resume
End Function
Public Sub query(sql As String)
Dim query As QueryDef
Set query = conn.CreateQueryDef("", sql)
query.Execute
End Sub
Public Sub openBase(sql As String, tipo As Integer)
'tipo 1 = Modo Consulta
'tipo 2 = Modo Edicion
recor.Close
If tipo = 1 Then
Set recor = conn.OpenRecordset(sql, dbOpenDynamic)
Else
If tipo = 2 Then
Set recor = conn.OpenRecordset(sql)
End If
End If
End Sub
Ahí ya tienes al menos el 80% del trabajo hecho!
Chao!