Copy/Duplicating Record

I am trying to copy/duplicate a record using the following:
Private Sub cmdCopyRecord_Click()
On Error GoTo Err_cmdCopyRecord_Click


DoCmd.DoMenuItem acFormBar, acEditMenu, 8, , acMenuVer70
DoCmd.DoMenuItem acFormBar, acEditMenu, 2, , acMenuVer70
DoCmd.DoMenuItem acFormBar, acEditMenu, 5, , acMenuVer70 'Paste Append

Exit_cmdCopyRecord_Click:
Exit Sub

Err_cmdCopyRecord_Click:
MsgBox Err.Description
Resume Exit_cmdCopyRecord_Click

End Sub

My problem is that these records are linked to to another table. Basically I
have a Sub-Form within this form. How can I get the sub-form records to also
copy?
Thanks!
Anthony