假设你的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数据库模块（详解）

文章源自公式库网-https://www.gongshiku.com/html/202101/vb-lianjiemysqlwangluoshujukudedaima.html

Option Explicit文章源自公式库网-https://www.gongshiku.com/html/202101/vb-lianjiemysqlwangluoshujukudedaima.html

文章源自公式库网-https://www.gongshiku.com/html/202101/vb-lianjiemysqlwangluoshujukudedaima.html

'需要安装 MySQL 的 ODBC 驱动，官网上有，我的是 Connector ODBC 5.1
'先引用 Microsoft ActiveX Data Objects 6.0 Library 我的是 6.0，用最新的就行文章源自公式库网-https://www.gongshiku.com/html/202101/vb-lianjiemysqlwangluoshujukudedaima.html

文章源自公式库网-https://www.gongshiku.com/html/202101/vb-lianjiemysqlwangluoshujukudedaima.html

Public conn As ADODB.Connection
Public rs As ADODB.Recordset
Public fld As ADODB.Field文章源自公式库网-https://www.gongshiku.com/html/202101/vb-lianjiemysqlwangluoshujukudedaima.html

文章源自公式库网-https://www.gongshiku.com/html/202101/vb-lianjiemysqlwangluoshujukudedaima.html

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文章源自公式库网-https://www.gongshiku.com/html/202101/vb-lianjiemysqlwangluoshujukudedaima.html

文章源自公式库网-https://www.gongshiku.com/html/202101/vb-lianjiemysqlwangluoshujukudedaima.html

Public Sub connClose()
 rs.Close
 conn.Close
End Sub文章源自公式库网-https://www.gongshiku.com/html/202101/vb-lianjiemysqlwangluoshujukudedaima.html

'  常用语句
'  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