哈尔滨宝玑售后服务:VB中ADO菜鸟问题就是不懂，所有分都在这儿了

问题说明：
VB6.0+ADO
我想知道recordset.Update如何使用.自己试着搞了几个都提示错误:
如:
Private Sub Command3_Click()
rs.Update 姓名, "某某某" Where 编号=2
End Sub''姓名成高亮度,提示变量未定义
目的:把表1中编号为2的姓名字段改为"某某某"
下面是全部代码:(帮我指点一下错误.谢谢)
======================================
Option Explicit
Dim Cnn As New ADODB.Connection
Dim rs As New ADODB.Recordset

Private Sub Command1_Click()
Dim i As Integer
Dim b As Integer
b = -1
i = 0
For i = 0 To 4
b = b + 1
Select Case b
Case 0
tex1(b) = rs![编号]
Case 1
tex1(b) = rs![姓名]
Case 2
tex1(b) = rs![QQ号]
Case 3
tex1(b) = rs![地址]
Case Else
tex1(b) = rs![网址]
End Select
Next i
rs.MoveNext '下移一行
b = -1
i = 0
For i = 0 To 4
b = b + 1
Select Case b
Case 0
Tex2(b) = rs![编号]
Case 1
Tex2(b) = rs![姓名]
Case 2
Tex2(b) = rs![QQ号]
Case 3
Tex2(b) = rs![地址]
Case Else
Tex2(b) = rs![网址]
End Select
Next i
End Sub

Private Sub Command2_Click()
Unload Me
End Sub

Private Sub Command3_Click()
End Sub

Private Sub Form_Load()
Cnn = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & "e:\" & "\wlclass.mdb;Persist Security Info=False;Jet OLEDB"
Cnn.Open '连接

Dim i As Integer
For i = 0 To 4 Step 1
tex1(i) = ""
Tex2(i) = ""
Next i '清空所有文体框内容
rs.Open "select * from 表1", Cnn, adOpenDynamic, adLockReadOnly
rs.MoveFirst '移动到第一行

End Sub
谢谢