用vba连接mysql数据库

Sub ConnectToMySQL()
    Dim conn As Object
    Dim rs As Object
    Dim strConn As String
    Dim strSQL As String

    ' 创建连接对象
    Set conn = CreateObject("ADODB.Connection")
    
    ' 配置连接字符串
    strConn = "Driver={MySQL ODBC 8.0 Unicode Driver};Server=服务器地址;Database=数据库名;User=用户名;Password=密码;Option=3;"
    
    ' 打开数据库连接
    conn.Open strConn
    
    ' 执行SQL查询语句
    strSQL = "SELECT * FROM 表名"
    Set rs = conn.Execute(strSQL)
    
    ' 遍历查询结果
    While Not rs.EOF
        ' 处理数据
        Debug.Print rs("字段名")
        rs.MoveNext
    Wend
    
    ' 关闭连接和释放资源
    rs.Close
    Set rs = Nothing
    conn.Close
    Set conn = Nothing
End Sub