Sub RemoveRows()
        Dim dt As DataTable = ds.tables(0)
        Dim rows() As DataRow = dt.Select("SPALTE_1 = 'EINTRAG_1'") ' FILTERN / 
        ' DIE ZU LÖSCHENDEN ZEILEN
        For Each r As DataRow In rows
            dt.Rows.Remove(r)
        Next
    End Sub