Sub KopiereTabelleDAO()
    Dim dbs1 As DAO.Database
    Dim dbs2 As DAO.Database
    Dim strSQL As String
    Set dbs1 = OpenDatabase("D:\Datenbank1.mdb")
    Set dbs2 = OpenDatabase("D:\Datenbank1.mdb",FALSE,FALSE,";pwd=kennwort")
    strSQL = "SELECT tblTest.* INTO tblTest IN 'D:\Datenbank2.mdb' FROM" & _
      "tblTest;"
    dbs1.Execute strSQL
    dbs1.Close
    dbs2.Close
End Sub