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)
 
        If f.Length > 0 Then f = "(" & f & ") AND "
 
        ' 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)", f & "PLZ='babys'")
        col.Add(New StatisticItem(3, StatisticGroup.PLZ, "6....", n / bs.Count, _
          Color.DarkBlue))
 
    End Sub

VB@rchiv its the Best