[Resolvido]Acrescentar registro em subformulário.

Pessoal, boa noite,
Estou incluindo alguns registros em formulário com o código abaixo, acontece que o loop não percorre todos os registros para incluir em tabela. Ou seja, o código executa sempre o mesmo registro em cada linha da tabela.
Podem me dar uma sugestão?

Código:

      StrSQLRec = "SELECT * FROM ComparativoDetalhe WHERE Nota ='" & [Forms]![AAAfrmCriaRecursoSelect]![Texto31] & "'"
'--------------------------------------
'Seto o recordset com a sql da consulta
'--------------------------------------
Set rsRecebidos = CurrentDb.OpenRecordset(StrSQLRec)
'------------------------------------------------------------------
'Movo o ponteiro do recordset para o final em seguida para o início
'------------------------------------------------------------------
rsRecebidos.MoveLast: rsRecebidos.MoveFirst

'-------------------------------------------------------------------------------------
'Caso retorne 1 ou mais registros seta o recordset baseado na tabela
'executo loop pelo recordset baseado na tabela Recebidos, adicionando um novo registro
'na tabela comparativo.
'-------------------------------------------------------------------------------------
If rsRecebidos.RecordCount > 0 Then
'
Set rsRecebidos = CurrentDb.OpenRecordset("tblRecursoRegistros")
'
Do While Not rsRecebidos.EOF
'
With rsRecebidos
    .AddNew
    rsRecebidos!IDOS = Forms!AAAfrmCriaRecurso!IDOS
    rsRecebidos!NomeUsuário = Forms!AAAfrmCriaRecursoSelect!NomeUsuário
    rsRecebidos!CódUsuário = Forms!AAAfrmCriaRecursoSelect!CódUsuário
    rsRecebidos!CódGuia = Forms!AAAfrmCriaRecursoSelect!CódGuia
    rsRecebidos!DtAtendimento = Forms!AAAfrmCriaRecursoSelect!DtAtendimento
    rsRecebidos!CódServiço = Forms!AAAfrmCriaRecursoSelect!CódServiço
    rsRecebidos!NomeServiço = Forms!AAAfrmCriaRecursoSelect!NomeServiço
    rsRecebidos!SomaDeQuantidadeServiço = Forms!AAAfrmCriaRecursoSelect!SomaDeQuantidadeServiço
    rsRecebidos!SomaDeValorPago = Forms!AAAfrmCriaRecursoSelect!SomaDeValorPago
    rsRecebidos!valorTotalRecebido = Forms!AAAfrmCriaRecursoSelect![Vl. Glosado]
    rsRecebidos!CodGlosa = Forms!AAAfrmCriaRecursoSelect!txtMotivoTISS

.Update
'
End With
'nCount = nCount + 1
rsRecebidos.MoveNext

Loop

   Set rsRecebidos = Nothing
   rsRecebidos.Close
      
End If

Segue solução caso alguém passe pelo mesmo problema que tive.