'tire o = false desse if e tente, eu nao uso dao, entao nao me lembro se o nomatch é quando acha 'ou quando nao acha ok, é so tentar ai, se nao der coloque no lugar do false / true

If vnotad.NoMatch  Then 
    BeginTrans
    vnotad.add
    CommitTrans

else

    If MsgBox("Produto já Vendido, Deseja Alterar?", vbYesNo) = vbNo Then
       Combo5.Text = " "
       Combo5.SetFocus 
       BeginTrans
       vnotad.delete

       CommitTrans

   End If
txtquantidade.SetFocus
End If