Ajuda com formulário de Vendas

Boa noite.

Tenho um formulário de vendas no meu sistema, gostaria de saber como faço para quando vender  o mesmo item mais de uma vez ao invés dele repetir o item novamente apenas mudar a quantidade e manter apenas 1 item.
conforme na figura abixo, aqui quando vendo o mesmo item ele adiciona várias vezes e gostaria apenas 1 vez e mudasse apenas a quantidade desse item.
https://servimg.com/view/19780545/3

Boas....segue um exemplo

Código:



Private Sub cbocodprod_BeforeUpdate(Cancel As Integer)
'aqui eu faço a verificação de duplicidade de artigos dentro do pedido.
Dim frm As Recordset
    Set frm = Me.RecordsetClone
    With frm
    .FindFirst "CodProdutoOculta='" & Me.cbocodprod & "' And CodSubPed=" & Me.CodSubped & ""
        If Not .NoMatch Then
          If MsgBox("Deseja repetir esse artigo ?", vbYesNo + vbInformation + vbDefaultButton2, "Confirmação") = vbYes Then
        Else
          Cancel = True
          Me.cbocodprod.Undo
          End If
        End If
    End With
    Set frm = Nothing
End Sub