如何使用宏用MySQL数据更新Excel表格？

Sub UpdateExcelFromMySQL()
    Dim conn As Object
    Dim rs As Object
    Dim strSQL As String
    Dim i As Integer
    
    ' 创建数据库连接
    Set conn = CreateObject("ADODB.Connection")
    conn.ConnectionString = "DRIVER={MySQL ODBC 5.3 Unicode Driver};SERVER=数据库服务器地址;DATABASE=数据库名称;UID=用户名;PWD=密码;"
    conn.Open
    
    ' 执行SQL查询语句
    strSQL = "SELECT * FROM 表名"
    Set rs = conn.Execute(strSQL)
    
    ' 将数据更新到Excel表格中
    i = 1
    Do Until rs.EOF
        Cells(i, 1).Value = rs.Fields("字段名1").Value
        Cells(i, 2).Value = rs.Fields("字段名2").Value
        ' 继续更新其他字段
        
        i = i + 1
        rs.MoveNext
    Loop
    
    ' 关闭数据库连接
    rs.Close
    conn.Close
    Set rs = Nothing
    Set conn = Nothing
End Sub