haber si puedes iluminarme por favor, no consigo a través de esta consulta mandar cada uno de los registros en un insert de un subformulario.

He conseguido contar los registros del subformulario pero cada vez que pasa por el bucle solo inserta el primer registro duplicandolo una y otra vez, con el código lo entenderéis mejor xD

//Codigo
 
Set db = CurrentDb
 
With Me.SubVisitasAñadir.Form.RecordsetClone
 
.MoveFirst
 
Do Until .EOF
 
strsQl = "INSERT INTO MovimientosPersonalSubsanacion ( IdVisita, IdDni, Epi, Fi, AdiestramientoTutelado, ReconocimientoMedico, FormacionEspecificas, DesignacionRecursosPreventivo) " & _
"SELECT '" & IdVisita & "' AS IdVisita, '" & Forms!VisitasAñadir!SubVisitasAñadir.Form!IdDni & "' AS IdDni, '" & Forms!VisitasAñadir!SubVisitasAñadir.Form!Fi & "' AS Fi,'" & Forms!VisitasAñadir!SubVisitasAñadir.Form!Epi & "' AS Epi, '" & Forms!VisitasAñadir!SubVisitasAñadir.Form!AdiestramientoTutelado & "' AS AdiestramientoTutelado, '" & Forms!VisitasAñadir!SubVisitasAñadir.Form!ReconocimientoMedico & "' AS ReconocimientoMedico, " & _
"'" & Forms!VisitasAñadir!SubVisitasAñadir.Form!FormacionEspecificas & "' AS FormacionEspecificas, '" & Forms!VisitasAñadir!SubVisitasAñadir.Form!DesignacionRecursosPreventivo & "' AS DesignacionRecursosPreventivo "
 
 
db.Execute strsQl, dbFailOnError
 
.MoveNext
 
Loop
 
End With
 
Set db = Nothing

//Fin de codigo

Gracias de antemano!!!!!