壓縮被DBGIRD控件正在使用的MDB數據庫

在Access97裡,我們可以開一個資料庫後,利用工具-->資料庫公用程式來壓縮此一資料庫,可是在壓縮時,Access會先將此資料庫"關閉",再進行壓縮,然後再開啟壓縮後的資料庫,那麼我該如何在表單的這個按鈕做呢？？因為DBGird這個控件仍和資料庫做連結,所以我無法"關閉"數據庫...

　　這樣的話,我們只有先關閉被打開的表和字段,然後再關閉數據庫就OK了;

　　SubUpdate()

　　Data1.Recordset.Close

　　Data1.Database.Close

　　DBEngine.CompactDatabase"SourceDatabase","TargetDatabase"'壓縮數據庫

　　Endsub

->