Salvar dados do subformulário em um tabela

Bom dia aos colegas tenho um subformulário na qual preciso salvar os dados em uma determinada tabela.
Tenho um código na qual eu peguei aqui no fórum fiz as adaptações necessárias mas esta salvando somente o primeiro registro do subformulário é como o comando rst.MoveNext
não estivesse atuando no procedimento.
Obrigado a todos!!! Abraços

Código:

Dim db As Database
Dim rst As Object

Set db = CurrentDb()
Set rst = db.OpenRecordset("Tab_ReqSalva") '------esta tabela e para ser a tabela destino dos meus registros----------
Dim cont As Integer
Dim condi as Integer
cont = 1
condi = Form_Frm_SelP.txtConta
If condi >= 1 Then
   Do Until cont > condi
       rst.AddNew
       rst.[Paciente] = [Forms]![Frm_SelPaciente]![Qry_SelPaciente subformulário]!Paciente
       rst.[Matricula] = Forms!Frm_SelPaciente![Qry_SelPaciente subformulário]!Matricula
       rst.[Dt] = Now
       rst.Update
       rst.MoveNext
       cont = cont + 1
   Loop
   DoCmd.Close
Else
   MsgBox "Não exixte pacientes selecionados"
End If
rst.Close

Amigo da uma assistida nesse video aqui

youtube.com/watch?v=pvxWXjAXhos&list=PL7JtSlkTtSeF_mEceaAo8IIggsToHBhFW&index=1