Dim dgrv As DataGridViewRow = DataGridView1.CurrentRow
        Dim drv As Data.DataRowView = TryCast(dgrv.DataBoundItem, _
          Data.DataRowView)
        Me.NorthwindDataSet.EnforceConstraints = False
        Me.NorthwindDataSet.Orders.Rows.Add(drv.Row.ItemArray)

________
Alle Angaben ohne Gewähr. Keine Haftung für Vorschläge, Tipps oder sonstige Hilfe, falls es schiefgeht, nur Zeit verschwendet oder man sonst nicht zufrieden ist