db_connected = False

‘获取数据库连接设置
dsn_name = Trim(Worksheets("加载策略").Cells(2, 5).Value)  ------（ODBC配置中的DATA SOURCE NAME）
user_name = Trim(Worksheets("加载策略").Cells(3, 5).Value)
pass_word = Trim(Worksheets("加载策略").Cells(4, 5).Value)

‘获取数据库设置
db_name = Trim(Worksheets("加载策略").Cells(8, 5).Value) --------数据库名

Set cn = New Connection
Set rs = New Recordset
Set rs1 = New Recordset
Set cmd = New Command
Set a_App = New Application

If dsn_name = "" Then
MsgBox ("请设置ODBC名称")
Else
cn.ConnectionString = "DRIVER={MySQL ODBC 5.1 Driver};User ID=" & user_name & ";Password=" & pass_word & ";Data Source=" & dsn_name

ODBC配置：

MySQL版本：MySQL5.5

ODBC版本：mysql-connector-odbc-5.1.13-win32.msi

        mysql-connector-odbc-5.1.13-winx64.msi

安装完这两个版本

配置：

1.打开控制面板

2.搜索数据源然后打开

3.用户DSN：点击添加，按要求填写好，确定就行了

注意驱动程序那里要点击应用。

VBA连接MySQL数据库以及ODBC的配置（ODBC版本和MySQL版本如果不匹配会出现驱动和应用程序的错误）