DetailsView Eingabe validieren

Protected Sub DetailsView_ItemInserting(ByVal sender As Object, ByVal e As System.Web.UI.WebControls.DetailsViewInsertEventArgs) Handles DetailsView.ItemInserting
errorFound = True
txtMeldung.Text = ""
If e.Values(0) = "" Then
txtMeldung.Text = "ID darf nicht leer sein"
e.Cancel = True
Exit Sub
End If
If e.Values(1) = "" Then
txtMeldung.Text = "Beschreibung darf nicht leer sein"
e.Cancel = True
Exit Sub
End If
'Liste aller bisherigen Einträge
Dim l As New List(Of String)
l = DBGetKeys(TMserverDBTables.Devices)
If l.Contains(e.Values(0)) Then
txtMeldung.Text = "Diese ID gibt es bereits"
e.Cancel = True
End If
errorFound = False
End Sub