用开发平台做管理系统，非常方便。项目完成后，突出情况硬性要求让mysql做后台数据库。

在网上搜索资料，并测试，提供以下代码，共平台老师和同行参考。

1、要安装mysql odbc connect 32位版，默认设置是64位版本的，请网上搜索下如何设置，参考以下链接

http://jingyan.baidu.com/article/4d58d5413043a09dd4e9c021.html

2、连接代码

           Dim strconnt As String
            strConnect = ""
            Set connt = New ADODB.Connection
            Dim sevip, Db, user, pwd As String
            '设服务器地址、所连数据，及登录用户密码
            sevip = "localhost"
            Db = "eworks"
            user = "root"
            pwd = "root"       '这里的参数在平台中应该是读取系统设置的
            strconnt  = "DRIVER={MySQL ODBC 5.3 Unicode Driver};SERVER=" & sevip & ";Database=" & Db & ";Uid=" & user & ";Pwd=" & pwd & ";Stmt=set names GBK"
            connt .ConnectionString = strConnect
            connt .Open