用update保存时出错，求援!

我的代码如下：
 On Error GoTo AddErr
            Dim mysql1 As String
            If cn.State <> adStateClosed Then cn.Close
            cn.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=E:\VBDtatabase\mateforddb1.mdb;Persist Security Info=False"
            cn.CursorLocation = adUseClient
            cn.Open
            mysql1 = "select * from userInfo"
            If rs.State <> adStateClosed Then rs.Close
            rs.Open mysql1, cn, adOpenDynamic, adLockOptimistic
            If rs.EOF = False Then
            rs.AddNew
            rs.Fields("NO") = Trim(TxtNO.Text)
            rs.Fields("Clients") = Trim(TxtClients.Text)
            rs.Fields("LOTNO") = Trim(TxtLOTNO.Text)
            rs.Fields("XB") = Trim(TxtXB.Text)
            rs.Fields("ZZ1") = Trim(TxtZZ1.Text)
            rs.Fields!ZZ2 = Trim(TxtZZ2.Text)
            rs.Fields!Testdate = Trim(TxtTestDate.Text)
            rs.Fields!C1 = Trim(TxtC1.Text)
            rs.Fields!C2 = Trim(TxtC2.Text)
            rs.Fields!Item = Trim(ComboItem.Text)
            rs.Fields!TestBF = Trim(TxtBF.Text)
            rs.Fields!TestAF = Trim(TxtAF.Text)
            ..............
            rs.Update
            rs.Close
            End If
AddErr:
            MsgBox Err.Description
End Sub
运行时，按下updatecmd按钮，出现：“项目在所需的名称或序数中未被发”，不知哪里有毛病，请各位高手伸出援手!