' Satz aus der Haupttabelle mit n Datensätzen (brauche ich für den Key)
Dim row As dsProjekte.tblProjektRow = CType(CType(ftaLoad.bsProjekte.Current, _
  DataRowView).Row, dsProjekte.tblProjektRow)
        Dim KP As Integer = row.KeyProjekt
' Dieselbe Tabelle nochmals mit dem altuellen Datensatz gefüllt und lokal 
' gespiechert
        Me.TaProjektOrig.Fill(Me.DsProjekte.tblProjektOrig, KP)
' Effektive Kopie der Tabelle (auch in Access)
        Me.TaProjektKopie.Fill(Me.DsProjekte.tblProjektKopie)
        Dim RowOrig As dsProjekte.tblProjektOrigRow
        Dim z As Integer = 0
' Importieren der DataRow (funktioniert, ich kann diese Zeile abrufen)
        For Each RowOrig In Me.DsProjekte.tblProjektOrig.Rows
            Me.DsProjekte.tblProjektKopie.ImportRow( _
              Me.DsProjekte.tblProjektOrig.Rows(z))
            z += 1
        Next
        Me.DsProjekte.tblProjektKopie.AcceptChanges()
        Me.bsProjektKopie.EndEdit()
' Und hier sollte die aktualisierte Tabelle geschrieben werden ...
        Me.TaProjektKopie.Update(Me.DsProjekte.tblProjektKopie)