假设你的vb要连接到远程服务器的MySQL专用数据库上，可以用以下代码：

Private Sub Form_Load()
Dim cn As New ADODB.Connection '创建数据库对象
Dim rs As New ADODB.Recordset '创建表对象
Dim strCn As String '连接字符串
Dim db_host As String '服务器IP地址
Dim db_user As String '用户名
Dim db_pass As String '密码
Dim db_data As String '数据库名称
Dim db_table As String '表名称

db_host = "100.9.88.100" '服务器IP地址
db_user = "zhangsan" 'Mysql数据库登陆用户名
db_pass = "zhangsan" 'Mysql数据库登陆密码
db_data = "zhangsansql" '数据库的库名称
db_table = "zhansanTable" '表名称

strCn = "DRIVER={MySQL ODBC 3.51 Driver};" & "SERVER=" & db_host & ";" & "DATABASE=" & db_data & ";" & _
"UID=" & db_user & ";PWD=" & db_pass & ";" & "OPTION=3;stmt=SET NAMES GB2312"
cn.Open strCn '打开数据库
cn.CursorLocation = adUseClient
If cn.State = adStateOpen Then MsgBox "打开远程MySQL数据库成功"
'下面开始对具体表（假设"zhansanTable"）进行操作
rs.Open db_table, cn, adOpenKeyset, adLockOptimistic '打开表
'这里你可以对打开的表进行操作【增加、删除和修改等】
MsgBox "远程数据表中的记录数量 = " & rs.RecordCount
rs.Close '关闭表
cn.Close '关闭数据库
End Sub

其他相关

用VB连接MySQL数据库模块（详解）

Option Explicit

'需要安装 MySQL 的 ODBC 驱动，官网上有，我的是 Connector ODBC 5.1
'先引用 Microsoft ActiveX Data Objects 6.0 Library 我的是 6.0，用最新的就行

Public conn As ADODB.Connection
Public rs As ADODB.Recordset
Public fld As ADODB.Field

Public Sub connOpen()
 Set conn = New ADODB.Connection
 conn.ConnectionString = "DRIVER={MySQL ODBC 5.1 Driver};" & _
   "SERVER=localhost;" & "UID=用户名;PWD=密码;OPTION=3"
   '注意ODBC驱动版本号，现在最新的 MySQL 5.4 + ODBC 5.1
   '另外可以有 DATABASE=XX，或者在程序里使用 use database 语句
   'OPTION是什么作用不知道，我这里可以不写
 conn.Open
 Set rs = New ADODB.Recordset
 rs.CursorLocation = adUseClient   '游标位置（数据集存在服务器内存还是客户端内存）
End Sub

Public Sub connClose()
 rs.Close
 conn.Close
End Sub

'  常用语句
'  conn.Execute "drop database db_vb"
'  conn.Execute "create database db_vb"
'  conn.Execute "use db_vb"
'  conn.Execute "create table test (id int primary key,name char(8) not null)"
'  conn.Execute "insert into test value (1,'abc')"
'  conn.Execute "insert into test value (2,'xyz')"
'  执行查询
'  rs.Open "select * from test", conn
'  读取数据集
'  Debug.Print rs.RecordCount '数据集数量
'  rs.MoveFirst
'  For Each fld In rs.Fields
'    Debug.Print fld.Name,  '列标题
'  Next
'  Debug.Print
'  Do Until rs.EOF
'    For Each fld In rs.Fields
'      Debug.Print fld.Value,
'    Next
'    rs.MoveNext
'    Debug.Print
'  Loop