Private Sub LoadCollection()
        ' erstelle collection für Daten
        col = New StatisticCollection
        Dim bs As BindingSource = clsForms.F1.Tab1BindingSource
        bs.DataSource = clsForms.F1.Adr2006DataSet.Tab1
 
        Dim n As Integer
        Dim f As String = New String(bs.Filter)
 
        Dim plz1 As String = New String(bs.Filter)
        Dim plz9 As String = New String(bs.Filter)
 
        If f.Length > 0 Then f = "(" & f & ") AND "
        If plz1.Length > 0 Then plz1 = "(" & plz1 & ") AND PLZ > 9999 And < 20000"
        If plz9.Length > 0 Then plz9 = "(" & plz9 & ") AND PLZ > 89999 And < 99999"
 
        ' Spalte Geschlecht = Typ String, Männlich 
        n = bs.DataSource.Compute("Count(Geschlecht)", f & _
          "Geschlecht='männlich'")
        col.Add(New StatisticItem(1, StatisticGroup.Geschlecht, "männlich", n / _
        bs.Count, Color.LightBlue))
        ' Spalte Geschlecht = Typ String, Weiblich
        n = bs.DataSource.Compute("Count(Geschlecht)", f & _
          "Geschlecht='weiblich'")
        col.Add(New StatisticItem(2, StatisticGroup.Geschlecht, "weiblich", n / _
        bs.Count, Color.Pink))
 
        ' Spalte PLZ = Typ String
        n = bs.DataSource.compute("Count(PLZ)", plz1)
        col.Add(New StatisticItem(3, StatisticGroup.PLZ, "1....", n / bs.Count, _
          Color.DarkBlue))
 
        ' Spalte PLZ = Typ String
        n = bs.DataSource.compute("Count(PLZ)", plz9)
        col.Add(New StatisticItem(4, StatisticGroup.PLZ, "9....", n / bs.Count, _
          Color.Beige))
 
    End Sub

VB@rchiv its the Best