Immagino tu abbia creato, seguendo la guida, la tua "tblEmployees"...
per ottenere uqnto hai chiesto devi:
1) in una maschera "frmPwdChange" potresti inserire 3 caselle di testo: "txtUser", "txtPassword" e "txtPasswordNew"
e un pulsante con il codice, preso dalla guida e un po modoficato
If (DLookup("strEmpPassword", "tblEmployees", "[strEmpName]='" & Me.txtUser & "'") = Me.txtPassword.Value) And (IsNull(txtPasswordNew) = False) And (txtPasswordNew <> "") And (IsNull(txtUser) = False) And (txtUser <> "") Then
MsgBox ("Qui va caricata la Query di aggiornamento Dati")
Else
MsgBox "Password errata/non specificata, nuova password non specificata; user non corretto/specificato", vbOKOnly, _
"Errore"
Me.txtPassword.SetFocus
End If
se riesci a farlo funzionare... puoi provare ad applicare i suggerimenti dei msgbox (creando la query update e separando la gestione degli errori)
prova intanto a vedere se creando tale maschera e compili correttamente tutti e 3 le caselle di testo, i messaggi vengono visualizzati correttamente...
saluti
ps:
ovviamente l'ho testato e funziona... devi solo fare attenzione ai nomi quando crei anche tu