Dim dgts As DataGridTableStyle = New DataGridTableStyle()
Dim dgbc As DataGridBoolColumn = New DataGridBoolColumn()
 
Me.dgWGR.DataSource = FillDataTable("select wgr as feld1, feld2, feld3 as" & _
  "'test'  from tabelle1 order by feld1")
 
dgts.MappingName = "tabelle1"
 
dgbc.AllowNull = True
dgbc.FalseValue = 0
dgbc.TrueValue = 1
dgbc.MappingName = "feld3"
dgbc.HeaderText = "Zum Umsatz"
dgbc.Width = 30
dgts.GridColumnStyles.Add(dgbc)
 
Me.dgWGR.TableStyles.Add(dgts)