Dim TempoldGamesDBName, TempNewGamesDBName
Dim OldGamesDBName, NewGamesDBName
 
TempoldGamesDBName = App.Path & "\DBGames.mdb": TempNewGamesDBName = App.Path & _
  "\DBGames_sEc.mdb"
Name TempoldGamesDBName As TempNewGamesDBName  ' Datei verschieben und 
' umbenennen.
 
OldGamesDBName = App.Path & "\DBGames_aob.mdb": NewGamesDBName = App.Path & _
  "\DBGames.mdb"
Name OldGamesDBName As NewGamesDBName

mfg Lukas