Use the following sample code to compact and repair an Access database.

SourceConn = "Provider=Microsoft.Jet.OLEDB.4.0; Data source=D:\Database\YourDomainName.com\ExistingDatabase.mdb"
DestConn = "Provider=Microsoft.Jet.OLEDB.4.0; Data source=D:\Database\YourDomainName.com\NewCompactedDatabase.mdb"
Set oJetEngine = Server.CreateObject("JRO.JetEngine")
oJetEngine.CompactDatabase SourceConn, DestConn
Set oJetEngine=Nothing