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