下段代码之前运行没有问题，但是电脑出现问题后重装系统，又重装了CB6，一运行到Adoobj.OleProcedure(……)就出错，请教下是缺少文件还是其他什么问题，谢谢！
代码如下：
#include "dao_2k.h"
AnsiString FileName_Temp=ExtractFilePath(Application->ExeName)+"Temp.mdb";
AnsiString FileName_Src=ExtractFilePath(Application->ExeName)+"Src.mdb";
AnsiString pwd="";
AnsiString Provider_Src="Provider=Microsoft.Jet.OLEDB.4.0;Data Source="+FileName_Src+";Jet OLEDB:Database Password="+pwd;
AnsiString Provider_Dest="Provider=Microsoft.Jet.OLEDB.4.0;Data Source="+FileName_Temp+";Jet OLEDB:Database Password="+pwd;
//关闭数据库连接
ADOConn1->Close();
//判断目标文件是否存在，存在则删除
if(FileExists(FileName_Temp))
{
DeleteFile(FileName_Temp);
}//if(FileExists(FileName_Temp))
//压缩Access数据库
Variant Adoobj=Variant::CreateObject("JRO.JetEngine");
Adoobj.OleProcedure("CompactDatabase",WideString(Provider_Src),WideString(Provider_Dest));
Adoobj.Clear();
//删除源文件
if(FileExists(FileName_Src))
{
DeleteFile(FileName_Src);
}//if(FileExists(FileName_Src))
//重命名目标文件
RenameFile(FileName_Temp,FileName_Src);
