窗体修改密码，如何写代码？？

Private Sub Cancel_Click()
    DoCmd.Close                         '关闭登陆窗口
End Sub


Private Sub PassWord0_Exit(Cancel As Integer)
    If Me.PassWord0 = Me.PassWord Then      '输入正确密码后可以更改用户姓名及密码
        Me.UserName1.Enabled = True
        Me.PassWord1.Enabled = True
        Me.PassWord2.Enabled = True
    Else
        Me.UserName1.Enabled = False
        Me.PassWord1.Enabled = False
        Me.PassWord2.Enabled = False
    End If
End Sub


Private Sub OK_Click()
    On Error GoTo Err_OK_Click
    If Me.PassWord1 <> Me.PassWord2 Then   '核对两次输入的新密码是否一致
        DoCmd.Beep
        MsgBox "两次输入的新密码不一致！", vbOKOnly, "提示信息"
        Me.PassWord1 = Null
        Me.PassWord2 = Null
        Me.PassWord1.SetFocus
    ElseIf Me.PassWord0 = Me.PassWord And Me.UserName1 <> Me.UserName And Me.PassWord1 = Me.PassWord2 Then     '核对新密码准确后更新密码
        Me.PassWord = Me.PassWord1
        Me.UserName = Me.UserName1
        MsgBox "登录信息修改成功！点击'确定'将退出系统，请重新登录！", vbOKOnly, "提示信息"
        DoCmd.Quit
    ElseIf Me.PassWord0 = Me.PassWord And Me.PassWord1 = Me.PassWord2 Then     '核对新密码准确后更新密码
        Me.PassWord = Me.PassWord1
        Me.UserName = Me.UserName1
        MsgBox "登录密码修改成功！点击'确定'将退出系统，请重新登录！", vbOKOnly, "提示信息"
        DoCmd.Quit
    End If
Exit_OK_Click:
    Exit Sub
Err_OK_Click:
    MsgBox (err.Description)
    Resume Exit_OK_Click
End Sub