数据库压缩是我们经常做的操作。之所以要压缩数据库是因为在操作数据库的时候，会留下很多没用的信息。比如删除了记录，也会留下碎片。压缩数据库能压缩存储以整理空间，节约空间。下面示例通过代码压缩前后台数据库。

详细代码：

Private Sub Command0_Click()

    Dim OldDB As String

    OldDB = CurrentProject.Path & "\后台.mdb"

    Dim NewDB As String

    NewDB = CurrentProject.Path & "\压缩后的后台.mdb"

    Dim JRO As JRO.JetEngine

    Set JRO = New JRO.JetEngine

    JRO.CompactDatabase "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & OldDB & ";Jet OLEDB:Database Password=''", "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & NewDB & ";Jet OLEDB:Database Password='';Jet OLEDB:Engine Type=5"

    Kill OldDB

    FileCopy NewDB, OldDB

    Kill NewDB '新增一句，否则第二次压缩会出错。

    MsgBox "压缩成功!", vbInformation, "成功"

End Sub