Datagrid1.TableStyles.Clear
Dim TS as New DataGridTableStyle
Datagrid1.TableStyles.add(TS)
TS.GridColumnStyles.Clear()
 
For Each col As DataColumn In ds.Tables(0).Columns ' dt = datagrid1.datasource
    If _
        m_TS.GridColumnStyles.Contains(col.ColumnName) = False And _
        Not col.ColumnName.Equals("Diese_Spalte_Soll_Mann_Nicht_Sehen") Then
            Me.TableStyles(0).GridColumnStyles.Add(CreateDataGridColumn(col))
    End If
Next
 
Private Function CreateDataGridColumn(ByVal col As DataColumn) As _
  DataGridColumnStyle
    Dim csb As MyDataGridBoolColumn
    Dim cst As MyDataGridTextBoxColumn
    Dim ty As Type = col.DataType
 
    If ty.FullName = "System.Boolean" Then
        csb = New DataGridBoolColumn()
        csb.MappingName = Col.ColumnName
        Return csb
    Else
        cst = New DataGridTextBoxColumn()
        cst.MappingName = Col.ColumnName
        Return cst
    End If
End Function