下面给你的代码是百分之百可以连接成功的，它也是我正在使用中的代码片段哦。

Private Sub Command1_Click()

  Dimcn As New ADODB.Connection  '创建数据库对象

  Dimrs As New ADODB.Recordset   '创建表对象

  DimstrCn As String   '连接字符串

  Dimdb_host As String

  Dimdb_user As String

  Dimdb_pass As String

  Dimdb_data As String

  db_host = "188.88.88.188" '服务器IP地址

 db_user = "users"                '登陆服务器时的“用户名”

 db_pass = "passwords"       '登陆服务器时的“密  码”

 db_data = "sqlname"           '数据库的库名称sqlname（不是表名称）  

 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

  Ifcn.State = adStateOpen Then MsgBox "打开远程MySQL数据库成功"

     '下面开始对具体表（假设"userstabel"）进行操作

     rs.Open "userstabel", cn, adOpenKeyset, adLockOptimistic    '打开表"userstabel"

         MsgBox "远程数据表userstabel 中的记录数量= " & rs.RecordCount

         rs.AddNew  '开始添加一条记录

         rs.Fields("filed1") = x

         rs.Fields("filed2") =y

         rs.Fields("filed2") = z

         rs.Update

     rs.Close   '关闭表

 cn.Close      '关闭数据库

  Ifcn.State = adStateClosed Then MsgBox "远程数据库MySQL关闭成功"

End Sub 

首先将myodbc3.dll文件复制到系统下，然后将以下内容做成xxx.reg文件并运行。

Windows Registry Editor Version 5.00

[HKEY_LOCAL_MACHINE\SOFTWARE\MySQL AB\MySQLConnector/ODBC 3.51] 

"Version"="3.51.24"

[HKEY_LOCAL_MACHINE\SOFTWARE\ODBC\ODBCINST.INI\MySQLODBC 3.51 Driver] 

"UsageCount"=dword:00000001 

"Driver"="C:\\WINDOWS\\system32\\myodbc3.dll"

"Setup"="C:\\WINDOWS\\system32\\myodbc3S.dll"

[HKEY_LOCAL_MACHINE\SOFTWARE\ODBC\ODBCINST.INI\ODBCDrivers] 

"MySQL ODBC 3.51Driver"="Installed"

该文章在 2013/11/13 23:40:49 编辑过