通过VBA将数据从Access导入Excel。导入值的方式有问题

Sub ImportDataFromAccess()
    Dim conn As Object
    Dim rs As Object
    Dim strSQL As String
    Dim i As Integer
    
    ' 创建ADO连接对象
    Set conn = CreateObject("ADODB.Connection")
    
    ' 设置连接字符串，指定Access数据库的路径和名称
    conn.ConnectionString = "Provider=Microsoft.ACE.OLEDB.12.0;Data Source=C:\Path\To\Your\Database.accdb;"
    
    ' 打开数据库连接
    conn.Open
    
    ' 创建ADO记录集对象
    Set rs = CreateObject("ADODB.Recordset")
    
    ' 构造SQL查询语句，选择需要导入的数据
    strSQL = "SELECT * FROM YourTableName;"
    
    ' 执行查询
    rs.Open strSQL, conn
    
    ' 将查询结果导入Excel
    For i = 1 To rs.Fields.Count
        ' 将字段名写入Excel第一行
        Cells(1, i).Value = rs.Fields(i - 1).Name
    Next i
    
    ' 将数据写入Excel
    Range("A2").CopyFromRecordset rs
    
    ' 关闭记录集和连接
    rs.Close
    conn.Close
    
    ' 释放对象
    Set rs = Nothing
    Set conn = Nothing
    
    MsgBox "数据导入完成！"
End Sub