prova con questo, l'ho trovato su un esempio in ASP:
ps . sorgente un po' modificato e nn testato

codice:
Dim dbnameOLD, dbnameNEW, sPassword 

dbnameOLD = app.path & ("/prova.mdb")
dbnameNEW = app.path & ("/prova_compattato.mdb")
sPassword = "123" 

CompactDatabase dbnameOLD, dbnameNEW, , , ";pwd=" & sPassword