压缩被DBGIRD控件正在运用地MDB数据库

　　在Access97里, 我们可以开一个资料库后, 利用工具-->资料库公用程式来压缩此一资料库,可是在压缩时, Access会先将此资料库"关闭", 再进行压缩,然后再开启压缩后的资料库,那么我该如何在表单的这个按钮做呢??因为DBGird这个控件仍和资料库做连结, 所以我无法"关闭"数据库...

　　这样的话,我们只有先关闭被打开的表和字段,然后再关闭数据库就OK了;

　　Sub Update()

　　Data1.Recordset.Close

　　Data1.Database.Close

　　DBEngine.CompactDatabase "SourceDatabase", "TargetDatabase" ' 压缩数据库

　　End sub