Dim keycolumn As Integer = 0
Dim dt As New DataTable
dt.Columns.Add("key", GetType(Integer))
 
Dim bs As New BindingSource
bs.DataSource = dt
 
'Hinzufügen einer Zeile
Dim row As DataRow = DirectCast(bs.AddNew(), DataRowView).Row
bs.EndEdit() 'Editiervorgang abschließen / neue Zeile in Quelle eintragen
 
row.Item(keycolumn) = 1 'Schlüsselwert zuweisen