'Auswertung
    Public Sub GetError_Auswertung()
        If dt1.Rows.Count = 0 Then Return
        Dim Zeichen As String = "X"
        'Anzahl gefundene
        Dim aCount = _
            (From row In dt1.Rows _
             Select row Where row("Status").ToString = Zeichen).Count
        'Anzahl nicht gefundene
        Dim bCount = _
            (From row In dt1.Rows _
             Select row Where row("Status").ToString <> Zeichen).Count
 
        Dim anzahl As Integer = aCount
        Dim _anzahl As Integer = bCount
        'Anzahl gefundene
        TextBox1.Text = anzahl.ToString
        'Anzahl nicht gefundene
        TextBox2.Text = _anzahl.ToString
        'Anzahl Datensätze
        TextBox3.Text = dt1.Rows.Count
        'Anzahl noch finden
    End Sub