初学者的菜菜问题，求教----感激！！！！

Question

我在运行下面这段程序时，报错在Adodc1.Recordset.Delete位置．显示的错误是：
＂实时错误：键列信息不足或不正确．更新影响到多行．＂而且点击按纽后数据库中的所有记录都被删掉了．郁闷！！
Private Sub btnReadTags1_Click()
   Dim intRetValue As Integer
   Dim intmyval As String
   Dim myval As String
   btnReadTags1.Enabled = False
   intRetValue = Communication.ReadAllTags(txtUseAntenna)
   If intRetValue = 1 Then
      ShowMessage "读取标签成功！"
      Dim nCounter As Integer
      ShowMessage "显示标签读取列表："
      For nCounter = 0 To 2 'intCurrentReaderReads - 1
          intmyval = Communication.GetCurrentTagid(nCounter)
          ShowMessage intmyval
          Adodc1.RecordSource = "select * from 商品信息表  where 商品EPC码='" + intmyval + "'"
          'Adodc1.Refresh
          If Trim(Adodc1.Recordset.Fields("商品EPC码")) <> intmyval Then
             myval = MsgBox("该记录在数据库中不存在!", vbOKOnly, "提醒！")
          Else
            myval = MsgBox("是否要删除该记录", vbYesNo, "提示！")
            If myval = vbYes Then
               Adodc1.Recordset.Delete
               Adodc1.Recordset.MoveNext
               If Adodc1.Recordset.EOF = True Then
                  Adodc1.Recordset.MoveLast
               End If
               'Adodc1.Recordset.Update
            End If
          End If
      Next nCounter
      'intCurrentReaderReads = 0
   Else
      ShowMessage "读取标签失败！ 错误代码： " & intRetValue
   End If
End Sub

Answer 1

谢谢楼上的各位好心人。我的问题解决了。正是Blade_hxh(水上飞) 的正解。