Visual Basic - Compactar Base de Datos

¿ Cómo compactar un abase de datos en access 2000 desde visual basic que tenga contraseña?
ya se que se utiliza el objeto dbengine.compactdatabase, pero necesito saber que agregar , porque la base de datos tiene contraseña...

Primero debes quitar la contraseña para eso debes abrir la mdb en modo exclusivo y luego

gdbTrabajo.NewPassword "tupassword", ""

despues utilizas el dbengine para compactar.

DBEngine.CompactDatabase tu.mdb", tu.mdn", dbLangGeneral & ";pwd=tupassword", dbVersion30

si ya eso lo hece , pero el problema es que debo hacer todo eso a código desde un programa de gestion de base de datos
me podria ayudar con eso?
como abrirla en modo exclusivo en tiempo de ejecucion y quitarle la contraseña?