Just in case you need it
[VBA]
' this requires a reference to Microsoft Jet and Replication Objects 2.6 Library
Set JRO = New JRO.JetEngine
JRO.CompactDatabase "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=S:\Database\Valuat~1.mdb;", "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=C:\Database\Backup\thu\Valuat~1.mdb;"
JRO.CompactDatabase "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=S:\Database\SasinesData.mdb;", "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=C:\Database\Backup\Sasines\SasinesData.mdb;"
Call SetClearArchiveBit("C:\Database\Backup\Sasines\SasinesData.mdb")

[/VBA]