Access - URGENTE Compactacion base de datos

Como podria compactar la base de datos que estoy utilizando,mediante codigo en un modulo,lo mismo que haces cuando vas a herramientas/utilidades de la base de datos/compactar

te envio el codigo para compactar.
No se puede compactar una base de datos si esta abierta, por lo tanto la tienes que compactar desde otra base de datos (por ej. que tenga solamente un form con un boton para compactar)
Teclea en codigo:
Para compactar
DBEngine.CompactDatabase "c:\...\MiBase.mdb","c:\...\Temporal.mdb"
Eliminamos nuestra base de datos
Kill "c:\...\MiBase.mdb"
Cambiamos el nombre de la base de datos Compactada llamada Temporal:
Name "c:\...\Temporal.mdb" As "c:\...\MiBase.mdb"

... (la ruta completa donde se encuentra la base de datos)

Espero que te ayude

Jon