Visual Basic - Abrir un Informe de Access Con Clave

Yo abro el informe de access de la siguiente forma, pero cuando le coloco clave a la base de datos no me funciona, alguien sabe como hacerlo con clave.

Dim Infacc As New Access.Application
Set Infacc = GetObject(App.Path & "\Control.mdb")
Infacc.DoCmd.OpenReport "Informe Buses", acViewPreview
Infacc.DoCmd.Maximize
Infacc.Visible = True
Set Infacc = Nothing