Visual Basic - Compactar una BD

Hola, a ver si me ayudais, por favor.
¿Cómo se compacta una BD por código VB? Necesito el código completo... o sea, desde que hace una copia de la BD y después la renombra para que la nueva BD sea pequeñita, y borre la grande.

Gracias.

saludos Verito
ahy tienes lo que pides

database.close
DBEngine.CompactDatabase c:\base1.mdb, c:\base21.mdb
Kill c:\septima.mdb

bueno esto lo que hace es que realiza una copia de la base de datos ya compactada, entonces luego con KILL borramos la primera base mas grande y nos quedamos solo con la base mas pequeña, luego solo la renombramos la base ya compactada a su nombre original

Name c:\base2.mdb As c:\base1.mdb