'引用Microsoft jet and Replication Object 2.6 Library
'Access数据库压缩修复函数备份一举三得:'
'代码归vbman2003所有
Sub BackupMdb(sFile As String,dFile as string)
'sFile源文件,dFile目标文件
Dim miJRO As jro.JetEngine
Set miJRO = New jro.JetEngine
miJRO.CompactDatabase "Provider=Microsoft.Jet.OLEDB.4.0; " _
& "Data Source="& sFile &";" _
& "Jet OLEDB:Database Password=123", _
"Provider=Microsoft.Jet.OLEDB.4.0; " _
& "Data Source=" & dFile & ";" _
& "Jet OLEDB:Database Password=123" '<--注:用与源文件不同的密码,可以修改密码
End Sub