Set Engine = CreateObject("DAO.DBEngine.36")Engine.CompactDatabase "path\databasename", "pathewdatabasename"