求教,在delphi中使用TAccessApplication的问题!

请问大虾：我这里写了这样一段程序：
var
  aapp : TAccessApplication;
begin
  aapp := TACcessApplication(self);
** aapp.opencurrentdatabase('..\test.mdb',false);
  aapp.closecurrendatabase();
  aapp.free;
end;
在**处报错，提示数据库已被打开，但确实没有啊？请指点！