Dim ts As New DataGridTableStyle
        Dim txt As DataGridTextBoxColumn
        ts.MappingName = "Tabelle1" ' Name des DataTable
        For a As Integer = 0 To ds.Tables("Tabelle1").Columns.Count - 1 ' Durch 
        ' alle Spalten "gehen"
            txt = New DataGridTextBoxColumn
            txt.MappingName = ds.Tables("Tabelle1").Columns(a).ColumnName ' Die 
            ' momentane Spalte (zb.: "Spalte1" usw.)
            txt.TextBox.Multiline = True
            ts.PreferredRowHeight = 150
            txt.TextBox.AcceptsTab = True
            txt.TextBox.BackColor = Color.Red
            txt.TextBox.WordWrap = True
            txt.TextBox.Refresh()
            ts.GridColumnStyles.Add(txt)
        Next
        Me.DataGrid1.TableStyles.Add(ts)