vb用户登陆密码的修改

[zhuzhu_qiu]

vb用户登陆密码的修改
Private Sub Command1_Click()
UserName = frmlogin.Text1.Text
If Text1.Text <> "" And Text2.Text <> "" Then '不能为空
Data1.RecordSource = "select * from usertab where 用户名='" & frmlogin.Text1.Text & "' and 密码= " & "'" & frmlogin.Text2.Text & "'"

Data1.Refresh
If Data1.Recordset.EOF Then '移动到记录集的结尾
MsgBox "旧密码错误~！"
Text1.Text = ""
Text2.Text = ""
Text1.SetFocus
Else
Data1.Recordset.Fields("密码") = Text2.Text
Data1.Recordset.Update
MsgBox "密码修改成功~！"
Text1.Text = ""
Text2.Text = ""
End If
Else
MsgBox "新旧密码均不得为空~！"
Text1.SetFocus
End If


End Sub
提示密码错误
不知道哪错了，请高手指点~~

[tongnaifu]

Data1.RecordSource = "select * from usertab where 用户名='" & frmlogin.Text1.Text & "' and 密码= "'" & frmlogin.Text2.Text & "'"

[zhuzhu_qiu]

不行啊

[tongnaifu]

提示什么，你的密码什么字段？