I have created a record set to duplicate the record on a form and the records on a continues subforum. However I keep getting some errors that I can't get past.

The first:
"The changes you requested to the table were not successful because they would create duplicate values in the index, primary key or relationship. Change the data in the field or fields that contain duplicate data, remove the index, or redefine the index to permit duplicate entries"

I am guessing this is in relation to the Parent ID and the subform linked ID.

here is the code:

Details

Private Sub CreateRedress2_Click()


    ' Declare variables for form and subform recordsets
    Dim rsForm As DAO.Recordset
    Dim rsSubform As DAO.Recordset
    
    ' Set form recordset to all records
    Set rsForm = Me.RecordsetClone
    rsForm.MoveFirst
    
    ' Loop through all records on form
    Do Until rsForm.EOF
    
        ' Set subform recordset to all records for current form record
        Set rsSubform = Me.TLLinerHanger4inchSubF_F2200170.Form.RecordsetClone
        rsSubform.FindFirst "TraceListEquipID = " & rsForm("ID").Value
        
        ' Loop through all records on subform
        Do Until rsSubform.EOF
        
            ' Add new record to form recordset
            rsForm.AddNew
            
            ' Copy values from current record to new record
            rsForm.Fields("PN").Value = rsForm.Fields("PN").Value
            rsForm.Fields("Revision number").Value = rsForm.Fields("Revision number").Value
            
            ' Add new record to subform recordset
            rsSubform.AddNew
            
            ' Copy values from current record to new record
            rsSubform.Fields("PartNum").Value = rsSubform.Fields("PartNum").Value
            rsSubform.Fields("Rev").Value = rsSubform.Fields("Rev").Value
            
            ' Update form and subform recordsets
             rsForm.Update
             rsSubform.Update
            
            ' Move to next subform record
            rsSubform.MoveNext
            
        Loop
        
        ' Move to next form record
        rsForm.MoveNext
    
    Loop
    
    ' Refresh form and subform
    Me.Requery
    Me.TLLinerHanger4inchSubF_F2200170.Requery
    
End Sub