Como compactar una base de datos Access desde VB

[Willy Fog]

Esto lo he encontrado de algun compañero anterior a cuando yo entre en la empresa que trabajo:

DBEngine.CompactDatabase Rutabd & NombreBD, Rutabd & "COMPACTA.MDB"
Kill Rutabd & NombreBD & ".MDB"
Name Rutabd & "COMPACTA.MDB" As Rutabd & NombreBD & ".MDB"

Te recomiendo hacer una copia de la base de datos antes de hacer esto.
Esperoq ue te ayude.

Un saludo