' der Style wird geändert
            Dim V_Steuertabelle As New DataGridTableStyle
            V_Steuertabelle.MappingName = "t_KFZ_Steuer"
            V_Steuertabelle.RowHeadersVisible = False
            'alle Spalten werden durchlaufen und geändert 
            Dim V_Steuer_Spalten(6) As DataGridTextBoxColumn
            For i As Integer = 0 To 6
                V_Steuer_Spalten(i) = New DataGridTextBoxColumn
            Next
            'Verbindung zwischen Datenbank und Spalten
            V_Steuer_Spalten(0).MappingName = "von_Datum"
            V_Steuer_Spalten(1).MappingName = "bis_Datum"
            V_Steuer_Spalten(2).MappingName = "Steuerbeitrag"
            V_Steuer_Spalten(3).MappingName = "Erhöhung"
            V_Steuer_Spalten(4).MappingName = "Bemerkungen"
            'Spaltenbreite
            V_Steuer_Spalten(0).Width = 100
            V_Steuer_Spalten(1).Width = 100
            V_Steuer_Spalten(2).Width = 150
            V_Steuer_Spalten(3).Width = 100
            V_Steuer_Spalten(4).Width = 500
            'Spaltenüberschriften
            V_Steuer_Spalten(0).HeaderText = "von Datum"
            V_Steuer_Spalten(1).HeaderText = "bis Datum"
            V_Steuer_Spalten(2).HeaderText = "Beitrag"
            V_Steuer_Spalten(3).HeaderText = "Erhöhung"
            V_Steuer_Spalten(4).HeaderText = "Bemerkung"
 
            V_Steuer_Spalten(3).NullText = " "
            V_Steuer_Spalten(4).NullText = " "
 
            'Die neuen Spaltendesigns zum Tablestyle hinzufügen
            V_Steuertabelle.GridColumnStyles.AddRange(V_Steuer_Spalten)
            Dat_Steuern.TableStyles.Add(V_Steuertabelle)