Protected Overrides Sub OnDataSourceChanged(ByVal e As System.EventArgs)
        MyBase.OnDataSourceChanged(e)
 
        Dim dt As DataTable = Convert_DataSource_T_DataTable()
 
        Me.TableStyles.Clear()
 
        Dim ts As New DataGridTableStyle(False) 'false ist da SEHR wichtig!!!
 
        ts.GridColumnStyles.Clear()
 
        For Each col As DataColumn In dt.Columns
            If Not ts.GridColumnStyles.Contains(col.ColumnName) Then ' wenn die 
            ' spalte noch nicht da ist
                ts.GridColumnStyles.Add(GenerateDGColumnStyle(col))
            End If
        Next
    End Sub
 
    Private Function Convert_DataSource_T_DataTable() As DataTable
        If TypeOf Me.DataSource Is DataTable Then
            Return CType(Me.DataSource, DataTable)
        ElseIf TypeOf Me.DataSource Is DataView Then
            Return CType(Me.DataSource, DataView).Table
        ElseIf TypeOf Me.DataSource Is DataSet Then
            Return CType(Me.DataSource, DataSet).Tables(0)
        Else
            ' eventuell erweitern
        End If
 
    End Function
 
    Private Function GenerateDGColumnStyle(ByVal col As DataColumn) As _
      DataGridColumnStyle
        Dim ty As Type = col.DataType
        If ty.FullName = "System.Boolean" Then
            Dim csb As New DataGridBoolColumn
            csb.HeaderText = col.ColumnName ' eventuell erweiterbar, um 
            ' aufgrund des spalten namens 
            ' einen richtigen namen zu machen, ebenfalls erweiterbar auf 
            ' mehrsprachigkeit
 
            csb.MappingName = col.ColumnName
            csb.NullText = "False"
            csb.Width = 50
            Return csb
        Else
            Dim cst As New DataGridTextBoxColumn
            cst.HeaderText = col.ColumnName ' eventuell erweiterbar, um 
            ' aufgrund des spalten namens 
            ' einen richtigen namen zu machen, ebenfalls erweiterbar auf 
            ' mehrsprachigkeit
 
            cst.MappingName = col.ColumnName
            cst.NullText = ""
            cst.Width = 100
            Return cst
        End If
        ' hier ebenfalls erweiterbar wenn man eigene DataGridColumnStyles 
        ' erstellt
        ' z.b. für Datum, Interger (long), Double, Currency, etc.
    End Function