急！添加数据时有时无法添加，修改数据时第一字段无法修改！

Question

急！添加数据时有时无法添加，修改数据时第一字段无法修改！

Answer 1

使用的是access数据库，用VB
没有错误信息
只是数据库没有更新到
添加后还是原来的数据
大部分情况可以添加
第一字段不是自动编量来的

Answer 2

添加的代码
Set rs = New adodb.Recordset
          sql = "select *from tp"
          rs.Open sql, conn, adodb.adOpenDynamic, adodb.adLockPessimistic
          rs.AddNew
          For i = 0 To 11
          rs.Fields(i) = W(i).Text '添加记录
          Next i
          rs.Fields(12) = inperson
          rs.Fields(13) = infamily
          rs.Fields(14) = W(17).Text
          rs.Update
          MsgBox "录入成功"

Answer 3

更新的代码：
   Set rs = New adodb.Recordset
          sql = "select *from tp where 卷号='" & W(0).Text & "'"
          rs.Open sql, conn, adodb.adOpenDynamic, adodb.adLockPessimistic
          
          For i = 0 To 11
          rs.Fields(i) = W(i).Text
          Next i
          rs.Fields(12) = inperson
          rs.Fields(13) = infamily
          rs.Fields(14) = W(17).Text
          rs.Update
          rs.Close
          MsgBox "修改成功"

Answer 4

          sql = "select *from tp where 卷号='" & W(0).Text & "'"
确保卷号是唯一的　另外*后最好加空