'工程-引入 Microsoft Jet and Replication Objects Library
Private Sub Command1_Click() Dim FIXDB As New JRO.JetEngine
FIXDB.CompactDatabase "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=c:aa.mdb", _
"Provider=Microsoft.Jet.OLEDB.4.0;Data Source=c:aac.mdb"
End Sub 'CompactDatabase 第一个参数是原始数据库，第二个是目标数据库
Private Sub Command1_Click() Dim FIXDB As New JRO.JetEngine
FIXDB.CompactDatabase "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=c:aa.mdb", _
"Provider=Microsoft.Jet.OLEDB.4.0;Data Source=c:aac.mdb"
End Sub 'CompactDatabase 第一个参数是原始数据库，第二个是目标数据库