Hi,
You can make it using JRO (Jet and Replication Objects):

strConnOriginal = "Provider=Microsoft.Jet.OLEDB.4.0;" + ;
                  "Data Source=E:\Orig.MDB;"
strConnNew = "Provider=Microsoft.Jet.OLEDB.4.0;" + ;
             "Data Source=E:\New.MDB;"
jroEngine = CreateObject("JRO.JetEngine")
jroEngine.CompactDatabase(strConnOriginal, strConnNew)

>How can I compact an ACCESS db (.mdb) programmatically using SQLConfigDataSource or by using the OLE technology ?