'Change a user's password
Public Sub ChangePassword(strUser As String, _
    strOldPassword As String, strNewPassword As String)
    Dim wrk As DAO.Workspace
    Dim usr As DAO.User

    Set wrk = DBEngine(0)
    Set usr = wrk.Users(strUser)

    'Change the password
    usr.NewPassword strOldPassword, strNewPassword

    Set usr = Nothing
    Set wrk = Nothing
End Sub