主题：[求助]能否和当前登录用户密码进行比较

老实，计划实现这样的判断，代码中123456能否换成当前用户登录密码进行判断？（内部数据源）

Dim pwd As String = e.Form.Controls("TextBox1").Text
If pwd <> "123456" Then
    msgbox("密码不正确,默认密码是123456")
    e.cancel = True
End If