关于RECORDSET，急急急

如果一个程序中需多次用到RECORDSET那么是什么多个RECORDSET好，还是一个RECORDSET反复引用好，另外为什么Private Sub C_Save_Click()
Dim IntSave As Integer
IntSave = MsgBox("是否保存更改的记录", vbQuestion + vbOKCancel, "保存更改")
      If Len(T_UserName.Text) = 0 Then
         MsgBox "请选择您要更改记录的用户名", vbCritical, "用户未选择"
         C_Save.Enabled = False
         Exit Sub
      Else
          Select Case IntSave
                 Case vbOK
                      Cn.BeginTrans
                      Cn.Execute "update tblUser set PassWord='" & text1.text & "',userrate='" & text2.text & "' where UserName='" & text3.text
                      Cn.CommitTrans
                      MsgBox "记录保存完毕", vbInformation, "记录保存成功"
                      T_UserName.Text = ""
                 Case vbCancel
                      Cancel = True
          End Select
     End If
End Sub
报错说我的UPDATE有错,我把语句放到数据库里面建立一个查询都可以实现，说明我的SQL语句是正确的，是不是因为我在FORM_LOAD里面
Set Rs = New ADODB.Recordset
Rs.CursorLocation = adUseClient
Rs.Open "tblUser", Cn, adOpenDynamic, adLockOptimistic
If Rs.RecordCount > 0 Then
   For i = 1 To Rs.RecordCount
   LV_User.ListItems.Add , , Rs.Fields!username
   LV_User.ListItems.Item(i).SubItems(1) = Rs.Fields!userrate
   Rs.MoveNext
   Next
End If