[Resolvido]Excluir e transferir para outra tabela

Public Function fncCopiarTabArquivo()
Dim rs As DAO.Recordset
Dim rs2 As DAO.Recordset
Dim rsFilho As DAO.Recordset2
Dim rsFilho2 As DAO.Recordset2
Set rs = CurrentDb.OpenRecordset("tbl_CadFamDet")
Set rs2 = CurrentDb.OpenRecordset("tabArquivo")
Do While Not rs.EOF
    Set rsFilho = rs.Fields("status").Value
    rs2.AddNew
        Set rsFilho2 = rs2.Fields("status").Value
        rs2!paciente = rs!paciente
        rs2!FamCad = rs!FamCad
        '-----------------------------
        ' Loop pelo campo status
        '-----------------------------
        Do While Not rsFilho.EOF
            rsFilho2.AddNew
                rsFilho2!Value = rsFilho!Value
            rsFilho2.Update
            rsFilho.MoveNext
        Loop
    rsFilho2.Close
    rsFilho.Close
    rs2.Update
    rs.MoveNext
Loop
rs2.Close
rs.Close
Set rsFilho2 = Nothing
Set rsFilho = Nothing
Set rs2 = Nothing
Set rs = Nothing
End Function