Private Sub But_Beitragseingabe_öffnen_Click(ByVal sender As System.Object, _
  ByVal e As System.EventArgs) Handles But_Beitragseingabe_öffnen.Click
        Try
 
            Kennzeichen = Com_Kennzeichen_Auswahl.Text
            Dim KFZPruefung As String                                           _
                      'es wird Überprüft od das von Hand eingegebene KFZ in der 
            ' Datenbank angelegt ist
            Dim Pruefung As DataRow
            For Each Pruefung In DataSet_KFZAuswahl1.Tables(0).Rows             _
                       'sucht im DataSet nach dem KFZ 
                If Pruefung("KFZ") = Com_Kennzeichen_Auswahl.Text Then
                    KFZPruefung = Pruefung("KFZ")
                End If
            Next
 
            MsgBox(KFZPruefung)
            If KFZPruefung = Com_Kennzeichen_Auswahl.Text Then