急求如何用VB编写一段代码，急急急

正在编写一个小系统，有一个小界面是专门用来修改用户密码的。可我却无法完成，不知道哪里出了错。我自问应该代码没有错的，可返回来的总是“原密码有误“这个用MSGBOX编写的信息。代码如下：
Private Sub Command1_Click()
Dim cn As New Connection
Dim rs As New Recordset
If Combo1.Text = "" Then
MsgBox "请选择需修改的用户帐号"
Else
cn.Open "Provider=SQLOLEDB.1;Integrated Security=SSPI;Persist Security Info=False;Initial Catalog=图书管理;Data Source=admin"
sql = "select * from info_admin where ano='" & Combo1.Text & "'"
rs.Open sql, cn, 3, 2
If rs("password") = Trim(Text1.Text) Then
rs("password") = Trim(Text2.Text)
If Combo1.Text = "管理员" Then
rs("limit") = 1
Else
rs("limit") = 0
End If
MsgBox "修改成功"
Else
MsgBox "原密码输入有误"
End If
End If
End Sub
数据库中的密码和自己输入到text1.text中的密码准备无误

急求使用VB编写一段代码算蝴蝶数 用VB 6编写一段简单代码 合同管理系统代码如何用VB编写 如何用vb连接access数据库(代码编写) 求vb高手帮我编写一段代码。 如何用vb编写 求一段VB代码 高人来.....急!!! 如何用VB实现一段用户登陆验证的代码! 如何用一段代码释放VB全部资源 VB代码编写