压缩被DBGIRD控件正在使用的MDB数据库

在Access97中，我们打开一个数据库后，可以使用工具->数据库实用程序来压缩数据库。但是，在压缩时，Access会先“关闭”数据库，然后压缩，再打开压缩后的数据库。那么在表单的这个按钮里应该怎么做呢？？因为DBGird控件仍然连接到数据库，所以我不能“关闭”数据库...
在这种情况下，我们必须先关闭打开的表和字段，然后关闭数据库。

子更新()

数据1。记录集。关闭

数据1。数据库关闭

DBEngine。压缩数据库“源数据库”、“目标数据库”压缩数据库

末端接头