CompactMDB

<%
Set Engine = CreateObject("DAO.DBEngine.35")
Engine.CompactDatabase "path\database.mdb",
"path\compacted_database.mdb"
%>