http://mysql.cs.pu.edu.tw/Downloads/Connector-ODBC/5.1/

http://www.jb51.cc/article/p-alqkflby-pe.html

http://www.jb51.net/article/15061.htm

1,安装odbc driver

http://mysql.cs.pu.edu.tw/Downloads/Connector-ODBC/5.1/mysql-connector-odbc-noinstall-5.1.9-win32.zip

2,设置MysqL

my.ini文件的[MysqLd]下加入skip-name-resolve这一句，保存

3,vb代码

Dim db_host$,db_data$,db_user$,db_pass$,strCn$

    db_host = "localhost"
    db_data = "test"
    db_user = "root"
    db_pass = "123456"

    strCn = "DRIVER={MysqL ODBC 5.1 Driver};" & _
         "SERVER=" & db_host & ";port=3306;" & _
         "DATABASE=" & db_data & ";" & _
         "UID=" & db_user & ";PWD=" & db_pass & ";" & _
         "OPTION=3;"

' stmt=SET NAMES GB2312
' 这句是设置数据库编码方式
' 中文操作系统需要设置成 GB2312
' 这样中文才不会有问题
' 版本要求 MysqL 4.1+

' 连接数据库
CN.Open strCn
' 设置该属性,使 recordcount 和 absolutepage 属性可用
CN.CursorLocation = adUseClient


    If CN.State = adStateOpen Then _
        MsgBox "连接成功",vbOKOnly,"提示"
    CN.Close