Dim DB As DataBase
Dim Tbl As TableDef
Dim Sql As String
 
'Prüfen ob eine Tabelle "TMP" existiert - ggf. löschen
Set DB = DBEngine.OpenDataBase(Pfad_Name_der_DB, False, False)
For Each Tbl In DB.Tabledefs
       If Tbl.Name = "TMP" Then DB.Tabledefs.Delete "TMP"
Next
 
Sql = "SELECT * INTO TMP From MainTable Where Nick Like '*CyberLord*'"
' Jetzt macht es BUMM .... das ist das Schöne an DAO!
DB.Execute Sql
 
DB.Close