Dim t As New DataGridTableStyle
Dim t1 As New DataGridTextBoxColumn
Dim t2 As New DataGridTextBoxColumn
t.AllowSorting = False
t.MappingName = "table"
t1.MappingName = "Name" : t1.Width = 50 : t1.ReadOnly = True : t1.NullText = "" _
  : t1.HeaderText = "NAME"
t2.MappingName = "Vorname" : t2.Width = 75 : t2.ReadOnly = True : t2.NullText = _
"" : t2.HeaderText = "VORNAME" : t2.Format = "N"
t.GridColumnStyles.Add(t1)
t.GridColumnStyles.Add(t2)
dg.TableStyles.Add(t)