Estou precisando imprimir um relatorio do access com senha. Sem precisar o user digitar a senha para a impressão, ou seja, abri o relatirio e via codigo já digitara a senha.

 

Estou usando o seguinte codigo:

 

Dim RelAccess As Object

Set RelAccess = CreateObject("Access.Application")

With RelAccess
   
  .OpenCurrentDatabase filepath:="c:my mdb"
  .DoCmd.OpenReport ReportName:="my report"
End With

 

Só que ele está pedindo a senha para o bd, quando executa o comando imprimir.

Estou abrindo o BD no enveto load do form.

Dim wrk As Workspace
Dim db As Database
Set wrk = DBEngine.Workspaces(0)
Set db = wrk.OpenDatabase("my.MDB", False, False, ";PWD=senha")

 

Como resolver isso para que o user clique no botão imprimir e não precise digitar a senha.