Access VBA在两个数据库之间传输数据

Dim db As DAO.Database
Dim rsSource As DAO.Recordset
Dim rsDest As DAO.Recordset

Set db = OpenDatabase("C:\Path\To\SourceDatabase.mdb")
Set rsSource = db.OpenRecordset("TableName")

Set db = OpenDatabase("C:\Path\To\DestinationDatabase.mdb")
Set rsDest = db.OpenRecordset("TableName", dbOpenDynaset, dbAppendOnly)

Do While Not rsSource.EOF
    rsDest.AddNew
    rsDest!FieldName = rsSource!FieldName
    rsDest.Update
    rsSource.MoveNext
Loop

rsSource.Close
rsDest.Close
db.Close

Dim db As DAO.Database
Dim rsSource As DAO.Recordset
Dim strSQL As String

Set db = OpenDatabase("C:\Path\To\SourceDatabase.mdb")
Set rsSource = db.OpenRecordset("TableName")

strSQL = "INSERT INTO DestinationDatabase (FieldName1, FieldName2) SELECT FieldName1, FieldName2 FROM SourceDatabase"
db.Execute strSQL, dbFailOnError

rsSource.Close
db.Close