vb登陆密码的修改

[macd43561]

各位高手帮我看看下面这段代码哪边有问题?结果显示成功,但修改的不是登陆者的
Private Sub Command1_Click()
Dim rs_change As New ADODB.Recordset
Set rs_change = New ADODB.Recordset
Dim sql As String
If Trim(Text1.Text) <> Trim(Text2.Text) Then
MsgBox "密码不一致！", vbOKOnly + vbExclamation, ""
Text1.SetFocus
Text1.Text = ""
Text2.Text = ""
Else
Dim cn As ADODB.Connection
Set cn = New ADODB.Connection
cn.ConnectionString = "Driver={sql server};server=asus-aae1968d45;uid=sa;pwd=123;database=book"
cn.Open
sql = "select * from reader where 编号='" & Trim(dz_login.bh.Text) & "'"
rs_change.Open sql, cn, adOpenKeyset, adLockPessimistic
rs_change.Fields("密码") = Text1.Text
rs_change.Update
rs_change.Close
MsgBox "密码修改成功！", vbOKOnly + vbExclamation, ""
Unload Me
End If
End Sub

谢谢了,急!!

[_l_]

cn.open "Driver={sql server};server=asus-aae1968d45;uid=sa;pwd=123;database=book"
sql = "update reader set "
sql=sql & "密码='" & trim(text1) & "'"
sql=sql & " where 编号='" & Trim(dz_login.bh.Text) & "'"
CN.Execute SQL