Variables set" ' Delete old files. If Dir(strTempPathToDatabase) <> "" Then Kill strTempPathToDatabase If Dir(strBackupPathToDatabase) <> "" Then Kill strBackupPathToDatabase Print #1, Time,"Old backup files deleted"' Create the new temp database.SetwrkDefault = DBEngine.Workspaces(0...