请帮帮俺吧，俺实在是没办法了


俺用AdoX的方法建立了一个Access数据库：
....
....
CataLog:= CreateOleVariant('AdoX.CataLog');
CataLog.Create('.......\*.Mdb');
....
CataLog.ActiveConnection:= AdoQuery.ConnectionString;//打开了数据库
....但现在，俺想关闭数据库：
 1。对CataLog.ActiveConnection设空值吧，在资料上也看到在VB里是把这属性设为：Nothing，来解决的。但在Delphi里用Nothing,Null,'',Nil都是过了，还是不对。
 2。对AdoQuery.close;AdoQuery.Active;AdoQuery.DisableControl都用过，但还是不能关闭数据库。
 3。我这个程序里没用AdoConnection来做为连接控件。
 4。我现在要关闭数据库是为了下面对数据库进行压缩。因为数据库不关闭，老是会出现警告说因为数据库打开的，所以不能压缩。请帮我想想办法。实在是没择了