dataset_verbrauch.Tables.Add(tabelle)
 
Dim tb_id As DataColumn = New DataColumn("ID")
tb_id.DataType = System.Type.GetType("System.Int16")
dataset_verbrauch.Tables(0).Columns.Add(tb_id)
 
Dim tb_name As DataColumn = New DataColumn("Name")
tb_name.DataType = System.Type.GetType("System.String")
dataset_verbrauch.Tables(0).Columns.Add(tb_name)
 
Dim tb_vorname As DataColumn = New DataColumn("Vorname")
tb_vorname.DataType = System.Type.GetType("System.String")
dataset_verbrauch.Tables(0).Columns.Add(tb_vorname)
 
DataGrid1.TableStyles.Clear()
Dim DataGridTableStyle_verbrauch As New DataGridTableStyle
DataGridTableStyle_verbrauch.MappingName = "Verbrauch"
Dim Style_ID As New DataGridTextBoxColumn
Dim Style_Name As New DataGridTextBoxColumn
Dim Style_Vorname As New DataGridTextBoxColumn
 
With Style_ID
       .MappingName = "ID"
       .HeaderText = "ID"
       .NullText = ""          
       .Width = 40  'Breite der Spalte im DataGrid
End With
 
        With Style_Name
        .MappingName = "Name"
        .HeaderText = "Name"
        .NullText = ""
        .Width = 200
End With
 
With Style_Vorname
        .MappingName = "Vorname"
        .HeaderText = "Vorname"
        .NullText = ""
        .Width = 200
End With
 
DataGridTableStyle_verbrauch.GridColumnStyles.Add(Style_ID)
DataGridTableStyle_verbrauch.GridColumnStyles.Add(Style_Name)
DataGridTableStyle_verbrauch.GridColumnStyles.Add(Style_Vorname)
DataGrid1.TableStyles.Add(DataGridTableStyle_verbrauch)