用ADO操作Access数据库的压缩有关问题，请高人看看为什么小弟我的代码出错

用ADO操作Access数据库的压缩问题，请高人看看为什么我的代码出错。
#import   "c:\program   files\common   files\system\ado\msado15.dll "   \
no_namespace   \
rename_namespace( "ADOCG ")\
rename   ( "EOF ",   "adoEOF ")    

//using   namespace   ADOCG;                         编译显示找不到ADOCG
#import       "C:\Program   Files\Common   Files\SYSTEM\ADO\msjro.DLL "       no_namespace


TCHAR       szDestSQL[100];      
TCHAR       szSQL[100];      
       
::CoInitialize(NULL);      
sprintf(szSQL, "Provider=Microsoft.Jet.OLEDB.4.0;Data   Source=Config.mdb ");                      
IJetEnginePtr       jet(__uuidof(JetEngine));      
sprintf(szDestSQL, "Provider=Microsoft.Jet.OLEDB.4.0;Data       Source=ConfigTemp.mdb; ");      
strcat(szDestSQL, "Jet   OLEDB:Engine   Type=5 ");      
jet-> CompactDatabase(szSQL,szDestSQL);      
DeleteFile( "Config.mdb ");      
rename( "ConfigTemp.mdb ", "Config.mdb ");      
::CoUninitialize();  

在 jet-> CompactDatabase(szSQL,szDestSQL);     出错
Config.mdb是我的数据库名
网上找了半天，就找到着一个还出错。
友人能否给我相关代码

------解决方案--------------------
http://www.vckbase.com/document/viewdoc/?id=1274
http://www.vckbase.com/document/viewdoc/?id=496

vckbase上的例子很多
------解决方案--------------------
压缩数据库不是ADO能实现的吧？
我知道VBA可以。
------解决方案--------------------
CompactDatabase参数是文件名