Copy Multiple Fields

Hello...
I've 2 Database. "MyDb1.mdb" and "MyDb2.mdb"
In "MyDb1.mdb" I've 3 Table name ,Table1,Table2 and Table3.
So how to copy all table from "MyDb1.mdb" to "MyDb.mdb2".

Thanks and waiting response from you all.

Just like this will do...

Code:

---

Dim Db As Database
Dim sql$
Dim TblCnt%
Set Db = DBEngine.Workspaces(0).OpenDatabase(App.Path & "\MyDb1.mdb", False, False)
For TblCnt = 1 To 3
    sql = "INSERT INTO [" & App.Path & "\MyDb2.mdb].[Table" & TblCnt & "] SELECT * FROM Table" & TblCnt & ";"
    Db.Execute sql
Next
Db.Close
Set Db = Nothing

---