Hola
para conectar VB con MySQL, debes instalar el MyODBC, esto
lo puedes bajar de la misma pagina de www.mysql.com
ahora cuando ya hallas instalado el myodbc.
ejemplo con ADO
Private Sub Command1_Click()
Dim conexion As String
conexion = "Driver={MySQL ODBC 3.51 Driver}; " & _
"Server=nomserver; DATABASE=TuBase;UID=tuUser;PWD=TuClave;OPTION=3;"
Set DB = New ADODB.Connection
DB.CursorLocation = adUseClient
DB.Open conexion
Set Rs = New ADODB.Recordset
Rs.Open "select * from tabla", DB, adOpenDynamic, adLockOptimistic, adCmdText
Set DataGrid1.DataSource = Rs '<-- mostramos en un grid la consulta
End Sub
Saludos..