如何在msaccess中转置存储到另一个表中的列

Public Sub TransposeColumns()
    Dim db As DAO.Database
    Dim rsSource As DAO.Recordset
    Dim rsTarget As DAO.Recordset
    Dim strSQL As String
    Dim i As Integer
    
    ' 打开数据库
    Set db = CurrentDb
    
    ' 创建源表和目标表的记录集
    Set rsSource = db.OpenRecordset("SELECT * FROM SourceTable")
    Set rsTarget = db.OpenRecordset("SELECT * FROM TargetTable")
    
    ' 清空目标表
    db.Execute "DELETE FROM TargetTable"
    
    ' 遍历源表中的每一列
    For i = 0 To rsSource.Fields.Count - 1
        ' 将源表中的列值转置为行，并插入到目标表中
        strSQL = "INSERT INTO TargetTable (Field, Value) VALUES ('" & rsSource.Fields(i).Name & "', '" & rsSource.Fields(i).Value & "')"
        db.Execute strSQL
    Next i
    
    ' 关闭记录集和数据库
    rsSource.Close
    rsTarget.Close
    Set rsSource = Nothing
    Set rsTarget = Nothing
    Set db = Nothing
End Sub