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