Dim dtAuswertung As New DataTable
        Dim i As Integer = 0
 
        With dtAuswertung
            With dtAuswertung
                Dim IDCol As DataColumn = dtAuswertung.Columns.Add("ID", _
                  Type.GetType("System.Int32"))
                IDCol.AllowDBNull = False
                IDCol.Unique = True
 
                .Columns.Add("Daten", Type.GetType("System.String"))
 
            End With
        End With
 
        Dim primaryKey(1) As DataColumn
        primaryKey(1) = dtAuswertung.Columns("ID")
        dtAuswertung.PrimaryKey = primaryKey
 
        For Each r As DataRow In dt1.Rows
 
            If r("Fahrgestellnummer") IsNot DBNull.Value AndAlso CStr(r( _
            "Fahrgestellnummer")).Trim <> "" Then 
'Ist eigentlich verständlich die Codezeile macht genau das was ich will
'erst eine Neue Row einfügen wenn auch wiklich die Fahrgestellnummer drin steht
                Dim newRow As DataRow = dtAuswertung.NewRow
                i = i + 1
 
                newRow("ID") = i
                newRow("Daten") = r("Fahrgestellnummer") & " - " & r("Status") _
                 & " - " & r("Bauteil") & " - " & " [SN-" & r("Seriennummer") & _
                 "]"
 
                dtAuswertung.Rows.Add(newRow)
 
            End If
 
        Next