Dim SQL As String
Set DB = DBEngine.OpenDataBase(DBName, False,False)
SQL = "SELECT * INTO NeueTabelle From AlteTabelle ORDER BY WochenTag, Name"
With DB
   .Execute SQL 
   .TableDefs("AlteTabelle").Delete
   .TableDefs("NeueTabelle").Name = "AlteTabelle"
   .Close
End With