Compact and Repair Database (db1.mdb?)

When compacting and repairing a database, Access doesn't actually compact the current copy of the database, it just saves it as db1.mdb? Am I correct?

If so:

I am building an application which there will not be an admin present to compact and repair. I am using a function to this automatically at program start. How would I go about replacing the current copy of the application with the compacted one?Start Free Trial

1:
2:
3:
4:

'This function runs Access's compact and repair feature
Public Function CompactDatabase()
   CommandBars("Menu Bar").Controls("Tools").Controls("Database Utilities").Controls("Compact and Repair Database...").accDoDefaultAction
End Function