压缩Access数据库时‘尝试打开的数据库已经被机器 'XXX' 上的用户 'Admin' 以排它的方式打开’问题的解决办法

Access数据库的压缩已经有很多前辈予以圆满解决了。我这里说的是困扰我数十个小时，网络搜索无望的情况下，苦苦测试得到的答案。也许见笑了：
先将ADOQuery等数据库控件的连接字符串保存在墨个变量中，将所有的连接字符串设为''，待执行完压缩后，再将在重新赋值。一切OK。
var
  s: string;
begin
  s:= ADOQuery1.ConnectionString;
  ADOQuery1.ConnectionString:= '';
  //在这里执行压缩过程
  ADOQuery1.ConnectionString:= s;
end;---------------------------