Private Sub dgv_SelectionChanged(sender As Object, _
    e As System.EventArgs) Handles dgv.SelectionChanged
 
    If Not dtselect Is Nothing Then dtselect.Dispose()
    dtselect = dt.Clone  'Spaltenschema eintragen
 
    With dgv.SelectedRows
       For i As Integer = 0 To .Count - 1
           'ausgewählte Zeilen per Zugriff auf Bindingsource kopieren
           dtselect.ImportRow(CType(bs(.Item(i).Index), DataRowView).Row)
       Next i
    End With
End Sub