ADO问题，急，谢谢您的回答（错误出现在：adodc1.recordset.update)

Question

Private Sub cmdadd_Click(Index As Integer)
Adodc1.Recordset.AddNew
End SubPrivate Sub cmddel_Click(Index As Integer)
If MsgBox("真的要删除吗？", vbOKCancel + vbQuestion + vbDefaultButton2, "删除提示") = vbOK Then
Adodc1.Recordset.Delete
Adodc1.Recordset.MoveLast
End If
If Adodc1.Recordset.RecordCount = 0 Then
MsgBox "已无库存商品！", vbOKOnly + vbInformation, "删除提示"
End If
End SubPrivate Sub cmdedit_Click(Index As Integer)
Adodc1.Recordset.EditMode
Adodc1.Recordset.Update
End SubPrivate Sub cmdsave_Click(Index As Integer)
Adodc1.Recordset.Update
Adodc1.Refresh
End SubPrivate Sub Form_Load()
On Error Resume Next
ListView1.ListItems.Clear
With Adodc1.Recordset
.MoveFirst
For i = 1 To .RecordCount
  ListView1.ListItems.Add i, , .Fields("商品序号")
  ListView1.ListItems(i).SubItems(1) = .Fields("商品名称")
  ListView1.ListItems(i).SubItems(2) = .Fields("购入单价")
  ListView1.ListItems(i).SubItems(3) = .Fields("购入数量")
  ListView1.ListItems(i).SubItems(4) = .Fields("零售单价")
   ListView1.ListItems(i).SubItems(5) = .Fields("合计金额")
    ListView1.ListItems(i).SubItems(6) = .Fields("备注") .MoveNext
Next i
End With
Adodc1.Recordset.MoveLast
End SubPrivate Sub txtnum_KeyPress(Index As Integer, KeyAscii As Integer)    If KeyAscii <> 8 And KeyAscii < 48 Or KeyAscii > 57 Then
        Beep
KeyAscii = 0
    End If
----------------------------------------------------------------------
点保存（cmdsave_click)就出现：多步操作错误，请检查每一步的值

Answer 1

一般是你输入的数据违反了数据库的约束条件
例如字符串超长