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