我现在用VFP做了一个程序，用的是ACCESS数据库，但体积越来越大，我想在VFP中用ADO以代码方式实现压缩和修复ACCESS 数据库，不知道该怎么实现
---------------------------------------------------------------
*DAO方式:
LOCAL lole
lole=CREATEOBJECT('DAO.DBEngine.36')
lole.COMPACTDATABASE('D:\TEMP\TEST.MDB','D:\TEMP\NewTable.MDB')
RELEASE lole
-----------------------------------------------
*ADO方式:
LOCAL lole
lole=CREATEOBJECT('JRO.JetEngine')
strS1="Provider=Microsoft.Jet.OLEDB.4.0;Data Source=D:\TEMP\TEST.MDB;;Persist Security Info=False;Jet OLEDB:Database Password=;"
strT1="Provider=Microsoft.Jet.OLEDB.4.0;Data Source=D:\TEMP\NewTable.MDB;Jet OLEDB:Engine Type=5;"
lole.CompactDatabase(strS1,strT1)
RELEASE lole