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='LIKE 6%'") 
col.Add(New StatisticItem(3, StatisticGroup.PLZ, "6....", n / bs.Count, _
  Color.DarkBlue))
 
End Sub

VB@rchiv its the Best