Base de datos compactada con contraseña

lilith
07 de Diciembre del 2004
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