壓縮被DBGIRD控件正在使用的MDB數(shù)據(jù)庫

在Access97里, 我們可以開一個資料庫后, 利用工具-->資料庫公用程式來壓縮此一資料庫,可是在壓縮時, Access會先將此資料庫"關(guān)閉", 再進行壓縮,然后再開啟壓縮后的資料庫,那么我該如何在表單的這個按鈕做呢??因為DBGird這個控件仍和資料庫做連結(jié), 所以我無法"關(guān)閉"數(shù)據(jù)庫...
    這樣的話,我們只有先關(guān)閉被打開的表和字段,然后再關(guān)閉數(shù)據(jù)庫就OK了;
    Sub Update()
    Data1.Recordset.Close
    Data1.Database.Close
    DBEngine.CompactDatabase "SourceDatabase", "TargetDatabase" ' 壓縮數(shù)據(jù)庫
    End sub