SOS!!!帮帮我！！！！

Question

DAO:
Dim strolddb As String
Dim strnewdb As String
CommonDialog1.Filter = "access database(*.mdb)|*.mdb" '
CommonDialog1.ShowOpen '
If Len(CommonDialog1.FileName) > 0 Then '
strolddb = CommonDialog1.FileName '
Else '
Exit Sub '
End If '
CommonDialog1.Filter = "access database(*.mdb)|*.mdb" '
CommonDialog1.ShowOpen '
If Len(CommonDialog1.FileName) > 0 Then '
strnewdb = CommonDialog1.FileName '
Else '
Exit Sub '
End If '
If strolddb = strnewdb Then '
Exit Sub '
Else '
DBEngine.CompactDatabase strolddb, strnewdb, dbLangGeneral, dbEncrypt + dbversion70

Answer 1

上面的是DAO压缩数据库
今天是ADO压缩数据库，需要ADO的扩展
Dim jro As jro.JetEngine
      Set jro = New jro.JetEngine
      jro.CompactDatabase "Provider=Microsoft.Jet.OLEDB.4.0;Data 
      Source=d:\\nwind2.mdb", _ '來源文件
      "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=d:\\abbc2.mdb;Jet 
      OLEDB:Engine Type=4" '目的文件