如何在Access VBA中将数据从一个表转移到另一个表？

Dim strSQL As String
strSQL = "INSERT INTO 目标表名 (字段1, 字段2, ...) SELECT 字段1, 字段2, ... FROM 源表名"
CurrentDb.Execute strSQL

Dim rsSource As Recordset
Dim rsTarget As Recordset

Set rsSource = CurrentDb.OpenRecordset("源表名")
Set rsTarget = CurrentDb.OpenRecordset("目标表名")

Do Until rsSource.EOF
    rsTarget.AddNew
    rsTarget("字段1") = rsSource("字段1")
    rsTarget("字段2") = rsSource("字段2")
    ' 继续添加其他字段的赋值
    rsTarget.Update
    rsSource.MoveNext
Loop

rsSource.Close
rsTarget.Close