La Web del Programador: Comunidad de Programadores
 
    Pregunta:  6700 - IMPRIMIR INFORME DE ACCESS CON PASSWORD EN LA BASE PROPIA BD
Autor:  Urbandisa Urbandisa
¿Como puedo pasar la password al crear la instancia de access para poder imprimir un informe de access?
Yo puedo abrir la instancia, así:

Dim acApp As Access.Application
Set acApp = New Access.Application
acApp.OpenCurrentDatabase RutaBD
acApp.Visible = False
acApp.DoCmd.OpenReport "MiInforme", acViewNormal

Ya he probado esto: ;Persist Security Info=True", False
que me envío O.Paredes pero no me funciona en OpenCurrentDataBase.
Pero no se donde PASARLE LA PASSWORD y que no me salga la ventana de INTRODUZCA PASSWORD.

  Respuesta:  Christian guzman
Podes probar con la sentencia de PWD (Significa Passwrd)
en la linea donde abris la base:--> acApp.OpenCurrentDatabase RutaBD
podes agregarle --> ;PWD="Clave"
avajo te copio tu codigo y le agrege la opcion de password.
Suerte y espero que funciones

Dim acApp As Access.Application
Set acApp = New Access.Application
acApp.OpenCurrentDatabase RutaBD ;PWD="Clave"
acApp.Visible = False
acApp.DoCmd.OpenReport "MiInforme", acViewNormal