Hi!

>But I was using Visual Foxpro to create that system, is there any way to do it in Visual Foxpro way.

Yes:

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)