为什么创建Jet数据库引擎对象（JetEngine）总是失败?

[leafinwind]

代码如下：
IJetEnginePtr g_pJetEngine;
//创建JRO数据库引擎
BOOL CreateJroEngine()
{
BOOL bResult = TRUE;
HRESULT hr;
//1.创建Jet数据库引擎对象
if( !g_pJetEngine.GetInterfacePtr() ){
g_pJetEngine.GetIID();
hr = g_pJetEngine.CreateInstance(__uuidof(IJetEngine));
if( FAILED(hr) ){
AfxMessageBox("Jet数据库引擎对象创建失败!");
bResult = FALSE;
}
}else{
AfxMessageBox("Jet数据库引擎对象已经建立!");
}

return bResult;
}
结果始终执行到下面一句：
AfxMessageBox("Jet数据库引擎对象创建失败!");

在VB中也遇到同样的问题：
相同功能的代码也失败，
Dim JROObj As New JRO.JetEngine
这样预生成的对象也创建不成功，
即JROObj变量为空，真是匪夷所思

望大虾拔刀相助！！！

[leafinwind]

主要想压缩Access数据库。
问题很急，谢了先

[winthegame]

上