Dim dt As New DataTable("Users")
        Dim r As DataRow
 
        dt.Columns.Add(New DataColumn("id", GetType(Integer)))
        dt.Columns.Add(New DataColumn("vorname", GetType(String)))
        dt.Columns.Add(New DataColumn("nachname", GetType(String)))
        dt.Columns.Add(New DataColumn("last_login", GetType(Date)))
 
        r = dt.NewRow
        r("id") = 1
        r("vorname") = "peter"
        r("nachname") = "lustig"
        r("last_login") = Date.Now
        dt.Rows.Add(r)
 
        r = dt.NewRow
        r("id") = 2
        r("vorname") = "hans"
        r("nachname") = "meier"
        r("last_login") = Date.Now
        dt.Rows.Add(r)
 
        Me.DataGrid1.DataSource = dt
 
        Dim ts As New DataGridTableStyle
        Dim dgc As DataGridTextBoxColumn
 
        ts.MappingName = "Users"
        For Each c As DataColumn In dt.Columns
            dgc = New DataGridTextBoxColumn
            dgc.MappingName = c.ColumnName
            dgc.HeaderText = c.ColumnName.ToUpper
            dgc.Width = 100
            If c.DataType Is GetType(Date) Then
                dgc.Format = "MM'/'dd'/'yyyy' 'hh':'mm':'ss"
            End If
            ts.GridColumnStyles.Add(dgc)
        Next
        Me.DataGrid1.TableStyles.Add(ts)