Public Class frmEdit
 
    Dim dt As New DataTable
 
    Dim WithEvents bs As New BindingSource With _
      {.RaiseListChangedEvents = True}
 
    'Eigenschaften des Grid einrichten 
    Dim dgv As New DataGridView With _
        {.Parent = Me, .Size = New Size(500, 500), .DataSource = bs, _
         .SelectionMode = DataGridViewSelectionMode.FullRowSelect, _
         .MultiSelect = False}
 
    Dim maxRowNumber As Integer = 0 'Zeilenzähler
 
 
    Private Sub frmEdit_Load(sender As System.Object, _
        e As System.EventArgs) Handles MyBase.Load
 
        Me.Size = New Size(520, 520)
        Me.FormBorderStyle = Windows.Forms.FormBorderStyle.Fixed3D
 
        'Erforderliche Eingabespalten
        With dt.Columns
            .Add("SP1") : .Add("SP2") 'usw.
        End With
 
 
        bs.DataSource = dt
 
        For i As Integer = 0 To dgv.Columns.Count - 1
            dgv.Columns(i).SortMode = _
               DataGridViewColumnSortMode.NotSortable
        Next i
 
        dgv.RowHeadersWidth = 50
    End Sub
 
 
    Private Sub bs_AddingNew(sender As Object, _
        e As System.ComponentModel.AddingNewEventArgs) Handles bs.AddingNew
 
        If bs.Count = 0 Then Exit Sub
        If dgv.Rows(bs.Count - 1).HeaderCell.Value IsNot Nothing Then Exit Sub
 
        maxRowNumber += 1
        dgv.Rows(bs.Count - 1).HeaderCell.Value = maxRowNumber.ToString
 
    End Sub
End Class