'----关闭数据库连接,释放资源
Public Sub closeConn()
On Error Resume Next '错误仍继续执行
    If conn Is Nothing Then Exit Sub
    conn.Close
    Set conn = Nothing
End Sub


'----连接数据库,创建结果集对象
Public Sub AutoRun()
    Call closeConn
    On Error Resume Next
    Dim strDBinf As String
    
    Application.StatusBar = "正在连接数据库……"   '在Excel状态栏上显示提示
    
    If conn Is Nothing Then
        Set conn = New ADODB.Connection  '初始化conn为一个新的ADO连接对象
        Set RES = CreateObject("ADODB.Recordset")
        
        strDBinf = "DSN=mysqlinklexcel32"   '标准语句,因为在DSN中已经配置了IP、端口、用户名、密码等信息此处可不用再配置
        Call conn.Open(strDBinf)   '尝试使用DSN链接数据库
        
        If VBA.Err.Number <> 0 Then   '当VBA错误数量不为0时,则判断此时的DSN链接失败,提示使用64位的进行连接
            strDBinf = "DSN=mysqlinklexcel64"   '标准语句
            VBA.MsgBox "32位DSN连接失败,尝试使用mysqllinkexcel6连接!"  
            Call conn.Open(strDBinf)
        End If
       
        If VBA.Err.Number > 1 Then '当VBA错误数量>1时,则判断此时的DSN链接失败
            VBA.MsgBox "连接异常,请检查DB环境!"
            Set conn = Nothing
        End If
        '当VBA错误数量<1时(也就是没有错误时),则判断此时的DSN链接成功
        Application.StatusBar = "数据库连接成功"
    End If
End Sub