压缩、修复ACCESS 复制 ACCESS

Private Sub Command1_Click()
   'Sou: 源mdb文件路径和名称；Des: 目标mdb文件路径和名称
   '引用　Microsoft Jet and Replication Objects 2.6
    Dim miJRO As JRO.JetEngine
    Set miJRO = New JRO.JetEngine
    miJRO.CompactDatabase "Provider=Microsoft.Jet.OLEDB.4.0; " _
        & "Data Source=" & "D:/Sterilizing04Data.mdb " & ";" _
        & "Jet OLEDB:Database Password=123", _
    "Provider=Microsoft.Jet.OLEDB.4.0; " _
        & "Data Source=" & "D:/12/Sterilizing04Data.mdb" & ";" _
        & "Jet OLEDB:Database Password=123"
End Sub
Private Sub Command2_Click()
   ' MsgBox FileLen("D:/Sterilizing04Data.mdb")

    MsgBox Format(FileLen("D:/Sterilizing04Data.mdb") / (CLng(1024) * 1024), "0.0")

End Sub