请问用ADO怎么样对access数据库进行压缩，最好提供源代码，谢谢！

Question

Dim JRO3 As JRO.JetEngine
Set JRO3 = New JRO.JetEngine
JRO3.CompactDatabase "Provider=Microsoft.Jet.OLEDB.4.0;Jet OLEDB:Database Password=7281322;Data Source=" & App.Path & "\db1.mdb", _
"Provider=Microsoft.Jet.OLEDB.4.0;Jet OLEDB:Database Password=7281322;Data Source=" & App.Path & "\db3.mdb"
Kill App.Path & "\db1.mdb"
Name App.Path & "\db3.mdb" As App.Path & "\db1.mdb"

Answer 1

需要引用JRO，即：
工程-》引用-》Microsoft Jet and Replaction Object 2.1