VB修改密码问题~

来源：百度知道 编辑：UC知道 时间：2024/06/25 09:44:22
下面的代码总是无法修改，无论旧密码正确与否一直都是对不起，输入的旧密码错误~ 到底哪错了？是loginuser的问题吗？我第一次修改的时候是可以，但是以后都不行了。
If Trim(Text1.Text) = "" Then
MsgBox "请输入旧密码", vbOKOnly + vbExclamation
Text1.Text = ""
Text2.Text = ""
Text3.Text = ""
Text1.SetFocus
ElseIf Trim(Text2.Text) = "" Then
MsgBox "请输入新密码", vbOKOnly + vbExclamation
Text1.Text = ""
Text2.Text = ""
Text3.Text = ""
Text1.SetFocus
ElseIf Trim(Text3.Text) = "" Then
MsgBox "请输入确认密码", vbOKOnly + vbExclamation
Text1.Text = ""
Text2.Text = ""
Text3.Text = ""
Text1.SetFocus
ElseIf Len(Text2.Text) >= 15 Or Len(Text2.Text) <= 5 Then
MsgBox "输入密码位数不对!", vbOKOnly + vbExclamation, "提交错误"
Text1.SetFocus
Text1.Text = ""
Text2.Text = ""
Text3.Text = ""

你的三个文本框均不为空的话，将执行Call openconn ，这段语句是怎样的。
strsql = "select 密码 from login where 用户名 = '" & loginuser & "'"
rs.Open strsql, conn, adOpenDynamic, adLockBatchOptimistic
这个选择语句中的数据是空吗？