Close Access file to compress

Hello Experts.

 In my program use Adotable to connect to msaccess file .
 I have a Function to compress file msAsscecc.

my question:

 How to close file msaacess before compress, I'd tried :

 Procedure TForm1.Button1Click(Sender: TObject);
 begin

 Adotable1.close;
 CompressData(filename);
......

but I get error .I know I can compress if data file not open.

 Please teach me how close access file to compress then reload it.

 Thanks.