Private Function PrintRows(ByVal rows() As DataRow, ByVal label As String)
        Dim str As String
        Dim zeile As DataRow
        For Each zeile In rows
            str += zeile("FELDNAME") + vbCrLf
        Next zeile
        Return str
End Function