VB远程访问mysql（ODBC）

Private Sub Command1_Click()
Dim cn As New ADODB.Connection
Dim rs As New ADODB.Recordset

' 定义数据库连接字符串变量
Dim strCn As String

' 定义数据库连接参数变量
Dim db_host As String
Dim db_user As String
Dim db_pass As String
Dim db_data As String

' 定义 SQL 语句变量
Dim sql As String

' 初始化数据库连接变量
db_host = "****"
db_user = "root" '用户名
db_pass = "****" '用户密码
db_data = "mydata" '数据库名

' MySQL ODBC 连接参数
'+------------+---------------------+----------------------------------+
'| 参数名     | 默认值               | 说明                             |
'+------------+------------------------------------------------------–+
'| user       | ODBC (on Windows)   | MySQL 用户名                     |
'| server   &nbs