Ti crei una maschera in cui avrai la tua casella di testo (txtPassword) in cui inserisci la password e un pulsante di invio (nel mio esempio di nome cmdInvia).
Setti la tua password e la confronti con quella inserita dall'utente.
Se coincidono apri la maschera che ti interessa (nel mio esempio si chiama MascheraAccesso), altrimenti mostri il messaggio.
Codice:
Private Sub cmdInvia_Click()
miaPassword = "pippo"
If Me.txtPassword.Value = miaPassword Then
DoCmd.OpenForm "MascheraAccesso", acNormal
Else
MsgBox ("password errata")
End If
End Sub