---

Nogen der lige kort kan kommentere linierne?

Dim usr as User
Dim strPassword as String

Set usr = DBEngine(0).Users(CurrentUser)
On Error Resume Next
usr.NewPassword "", ""

If Err.Number = 0 Then
strPassword = InputBos("Du skal indtaste et password", "Enter Password")
DoCmd.Quit
Else
usr.NewPassword "", StrPassword
End If

End If