参考(要引用ADO):
Private Sub Command1_Click()
Dim i
Dim Rec As ADODB.Recordset
Set Rec = New ADODB.Recordset
Rec.Open "select name from msysobjects where type=4", CurrentProject.Connection, adOpenStatic, adLockReadOnly
DoCmd.SetWarnings False
For i = 1 To Rec.RecordCount
Debug.Print Rec.Fields(0)
DoCmd.RunSQL "select * intO " & Rec.Fields(0) & "_本地表 from " & Rec.Fields(0)
Rec.MoveNext
Next i
DoCmd.SetWarnings True
End Sub