vb用户登陆密码的修改

Question

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
提示密码错误
不知道哪错了，请高手指点~~

Answer 1

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