Access2000数据库压缩和解压问题！

我在windows2000（sp4）下VC6（sp4）中，想压缩Access2000的数据库，找到CSDN以前的贴子，都是这样写的，可下面代码怎么实现不了？压缩后如何解压？
在头文件中
#import "C:\PROGRAM FILES\COMMON FILES\System\ado\MSJRO.DLL" no_namespace  
在CPP文件中
try{
   IJetEnginePtr jet(__uuidof(JetEngine));
jet->CompactDatabase(
"Provider=Microsoft.Jet.OLEDB.4.0.1;Data Source=d:\\test.mdb;", 
"Provider=Microsoft.Jet.OLEDB.4.0.1;Data Source=d:\\test1.mdb;",
"Jet OLEDB:Engine Type=5",0);
}
catch(_com_error &e) {
::MessageBox(NULL, (LPCTSTR)e.Description( ), "", MB_OK) ;    
}