vba判断mysql数据库是否连接

Sub CheckMySQLConnection()
    Dim conn As Object
    Set conn = CreateObject("ADODB.Connection")
    
    conn.ConnectionString = "DRIVER={MySQL ODBC 8.0 Unicode Driver};" & _
                            "SERVER=数据库服务器地址;" & _
                            "DATABASE=数据库名称;" & _
                            "UID=用户名;" & _
                            "PWD=密码;"
    
    conn.Open
    
    If conn.State = 1 Then
        MsgBox "MySQL数据库已连接！"
    Else
        MsgBox "MySQL数据库未连接！"
    End If
    
    conn.Close
    Set conn = Nothing
End Sub

Sub CheckMySQLConnection()
    Dim conn As Object
    Set conn = CreateObject("ADODB.Connection")
    
    conn.ConnectionString = "DRIVER={MySQL ODBC 8.0 Unicode Driver};" & _
                            "SERVER=数据库服务器地址;" & _
                            "DATABASE=数据库名称;" & _
                            "UID=用户名;" & _
                            "PWD=密码;"
    
    conn.Open
    
    Dim rs As Object
    Set rs = CreateObject("ADODB.Recordset")
    
    rs.Open "SELECT 1", conn
    
    If Not rs.EOF Then
        MsgBox "MySQL数据库已连接！"
    Else
        MsgBox "MySQL数据库未连接！"
    End If
    
    rs.Close
    Set rs = Nothing
    
    conn.Close
    Set conn = Nothing
End Sub