Visual Basic para Aplicaciones - Compactar DB

Hola, necesito un ejemplo con el cual pueda compactar y reparar la DB en Acces desde Visual.
Para Acces XP
Gracias, Alex.

para compactar

DBEngine.CompactDatabase App.Path + "\base.mdb", App.Path + "\base1.mdb"

te crea otra base de datos ya compactada y debes cuidar de cerrar las conecciones a la base antes de compactar


DBEngine.RepairDatabase App.Path + "\base.mdb"
con esa reparas, tb debes cerrar la coneccion antes de reparar

saludos.....