dim db1 as database
dim db2 as database
dim sql as string
dim pfad as string
 
set db1 = dbengine.OpenDatabase("C:\db1.mdb")
set db2 = dbengine.OpenDatabase("C:\test\db2.mdb")
 
pfad = "C:\test\db2.mdb"
sql = "SELECT * INTO Tabelle IN " & pfad & " FROM Tabelle"
 
db1.Execute sql