' Felder
        Dim RowOrig As dsProjekte.tblProjektOrigRow
        Dim RowKopie As dsProjekte.tblProjektKopieRow
        ' Lese/Schreibe Routine
        Try
            ' Key Originaldatei abrufen
            Dim row As dsProjekte.tblProjektRow = CType(CType( _
              ftaLoad.bsProjekte.Current,  _
              DataRowView).Row, dsProjekte.tblProjektRow)
            Dim KP As Integer = row.KeyProjekt
            ' Gesuchten Datensatz in neuen TA lesen
            Me.TaProjektOrig.Fill(Me.DsProjekte.tblProjektOrig, KP)
            ' TA für die Kopie laden
            Me.TaProjektKopie.Fill(Me.DsProjekte.tblProjektKopie)
            ' DataRow Originnal zuordnen
            RowOrig = CType(Me.DsProjekte.tblProjektOrig( _
              Me.bsProjektOrig.Position), dsProjekte.tblProjektOrigRow)
            ' Schleife pro DataRow Originaltabelle
            For Each RowOrig In Me.DsProjekte.tblProjektOrig.Rows
                ' Leeren Satz für Kopie anlegen
                Me.bsProjektKopie.AddNew()
                Me.bsProjektKopie.EndEdit()
                ' DataRow Kopie zuordnen
                RowKopie = CType(Me.DsProjekte.tblProjektKopie( _
                  Me.bsProjektKopie.Position), dsProjekte.tblProjektKopieRow)
                ' Kolonnen der Orig DataRow in die Kopie DataRow schreiben
                For Each cCol As DataColumn In _
                  Me.DsProjekte.tblProjektOrig.Columns
                    RowKopie(cCol.Ordinal) = RowOrig(cCol.Ordinal)
                Next
            Next
            ' Update der Tabelle
            Me.TaProjektKopie.Update(Me.DsProjekte.tblProjektKopie)
        Catch ex As Exception
            MessageBox.Show(ex.ToString)
        End Try