Dim Style As New DataGridTableStyle
        Style.MappingName = "Personal"
 
        Dim FeldName As New DataGridTextBoxColumn
        FeldName.MappingName = "Name"
        FeldName.HeaderText = "Name"
        FeldName.Width = 100
        Style.GridColumnStyles.Add(FeldName)