Dim Con As DAO.Database
Dim Con2 As DAO.Database
 
Set Con = DBEngine.OpenDatabase("C:\Quell.mdb", False, False, _
  ";pwd=DeinPassWort")
Set Con2 = DBEngine.OpenDatabase("C:\Ziel.mdb", False, False, _
";pwd=DeinPassWort")
 
Con.Execute "INSERT INTO [C:\Ziel.mdb].ZielTabelle SELECT * FROM QuellTabelle"
 
Con.Close
Con2.Close
Set Con = Nothing
Set Con2 = Nothing