这样的话,我们只有先关闭被打开的表和字段,然后再关闭数据库就OK了;
（本文来源于图老师网站，更多请访问http://m.tulaoshi.com/bianchengyuyan/）SubUpdate()
Data1.Recordset.Close
Data1.Database.Close
DBEngine.CompactDatabase"SourceDatabase","TargetDatabase"'压缩数据库
（本文来源于图老师网站，更多请访问http://m.tulaoshi.com/bianchengyuyan/）Endsub
->
