Visual Basic - Base de datos compactada con contraseña

Hola, necesito que me ayuden a colocarle un password a una base de datos compactada, y que pueda manejarla desde una aplicacion de visual basic. la sentencia que estoy usando es la siguiente:

If Dir(App.Path & "\compactando.mdb") <> "" Then Kill App.Path & "\Compactando.mdb"
DBEngine.CompactDatabase App.Path & "\Estacionamiento", App.Path & "\Compactando.mdb"
If Dir(App.Path & "\Estacionamiento.mdb") <> "" Then Kill App.Path & "\Estacionamiento.mdb"
Name App.Path & "\Compactando.Mdb" As App.Path & "\Estacionamiento.mdb"

sin embargo no se en que linea de programacion debo colocar el ;"pwd=xxxx, o la sentencia adecuada
Gracias de antemano