我在程序中一个函数压缩access数据库，但是系统提示说：已经被某某用户以独占方式打开。请教各位怎么解决啊？

[georgehappy]

你是大哥！

[WWWWA]

代码？

[trampgzy]

那个独占的人可能就是你
你没打开它吗？
关闭重新启动看看

[sjlsy]

可能有其它软件在使用权用该数据库，如：你在用Access修改该数据库

[georgehappy]

是，就是我的当前程序打开了这个数据库，我的意思怎么先断开与数据库连接，压缩后，恢复连接
给出这个函数：
function CompactDatabase(AFileName,APassWord:string):boolean;

var
STempFileName:string;
vJE:OleVariant;
Const
SConnectionString = 'Provider=Microsoft.Jet.OLEDB.4.0;Data Source=%s;'
+'Jet OLEDB:Database Password=%s;';

begin
STempFileName:=GetTempPathFileName;
try
vJE:=CreateOleObject('JRO.JetEngine');
vJE.CompactDatabase(format(SConnectionString,[AFileName,APassWord]),
format(SConnectionString,[STempFileName,APassWord]));
result:=CopyFile(PChar(STempFileName),PChar(AFileName),false);
DeleteFile(STempFileName);
except
result:=false;
end;

[palu]

在调用此函数之前关闭对这个access库的连接

[palu]

在调用这个函数之前要关闭对这个access库的连接