Esta dica esta aqui na VBWEB
Para compactar
Não esqueça de incluir a biblioteca Microsoft DAO. que se encontra no Menu Project, References
DBEngine.CompactDatabase "c:gerenteancosgerente.mdb", _
"c:gerenteancosgerente1.mdb", , , ";pwd=" & Senha
-----------------------------------------------------------------------------------------------------------
'Reparar banco de dados
Dim PERG
PERG = MsgBox("Deseja reparar o banco de dados agora?", _
vbQuestion + vbYesNo, "Reparar DB?")
If PERG = vbYes Then
DBEngine.RepairDatabase "C:agenda.mdb"
MsgBox "Operação realizada com sucesso!", vbInformation, _
"DB Reparado!"
Else
MsgBox "Operação cancelada", vbInformation, _
"DB não Reparado!"
End If
