Wykrywanie błędów przy zapisie do bazy

Przy zapisie nowego produktu do bazy, mogą wystąpić błędy, lub powtórny zapis tego samego produktu. Poniższa procedura sprawdza, czy nie ma już zapisanego produktu.

Private Sub txtNazwa_TextChanged(ByVal  sender As System.Object, ByVal e As System.EventArgs)  Handles txtNazwa.TextChanged
    For Each sa As String In lstProdukt.Items        ' Otwarcie pętli poszukującej produktu 
                                                                                  ' w zapisanej tabeli nazw produktu
                                                                                  ' tabela lstProdukt jest ukryta w formularzu
                                                                                  ' poprzez lstProdukt.Visible = False
   If sa = txtNazwa.Text Then                                  
        lstProdukt.Text = sa
       MessageBox.Show("Ten produkt jest już wpisany w bazie! ", "Uwaga")
       txtNazwa.Text  = ""
      Exit Sub
  End If
Next
End Sub