Me.EnforceConstraints = True

Danke für die Hilfe

Gruß Christian

 ''' <summary>
    ''' wird beim Einlesen des DataFile aufgerufen wenn ein Fehler ausgelöst 
    ' wird.
    ''' </summary>
    ''' <param name="dts">optional ein DataSet, falls leer dann Me</param>
    ''' <returns>String (Fehlermeldung)</returns>
    Friend Function CheckDataSet(Optional ByVal dts As DataSet = Nothing) As _
      Integer
        If dts Is Nothing Then dts = Me
        Dim Meldung As String = String.Empty
        Dim Funde As Integer = 0
        For Each dt As DataTable In dts.Tables
            For Each dr As DataRow In dt.Rows
                If dr.HasErrors Then
                    Funde += 1
                    Dim cls = dr.GetColumnsInError
                    Dim errs As New List(Of String)
                    For Each c In cls
                        errs.Add(String.Concat(" Spalte " & c.ColumnName & "" & _
                          "Fehler: " & dr.GetColumnError(c.Ordinal)))
                    Next
                    Meldung += "Fehlerhafte DataRow in Tabelle " & dt.TableName _
                      & " bei Zeile " & dr(0).ToString ' davon ausgehend dass 
                    ' der Primärschlüssel oder ID in der 1.Spalte steht.
                    If Not errs Is Nothing AndAlso errs.Count > 0 Then
                        Meldung += Environment.NewLine
                        For Each E In errs
                            Meldung += E & Environment.NewLine
                        Next
                    End If
                    Meldung += Environment.NewLine & _
                      "-------------------------------------------------" & _
                      Environment.NewLine
                End If
            Next
        Next
        If Funde > 0 Then Clipboard.SetText(Meldung) : InfoBox(Funde & _
          "Fehler ermittelt" & Environment.NewLine & "Die Fehlermeldung(en)" & _
          "wurden in die Zwischenablage kopiert", True, 3000)
        Return Funde
    End Function

Danke für die Hilfe

Gruß Christian