Dim R as integer = 0
Dim DeleteRows() as DataRow
For Each TmpRow As DataRow In DataSet.Tables(0).Rows
         If Deine Bedingung Then
            ReDim Preserve DeleteRows(R)
            DeleteRows(R) =Tmp Row
            R += 1
         End If
Next
 
For Each TmpRow As DataRow In DeleteRows
      DataSet.Tables(0).Rows.Remove(TmpRow)
Next