haber si puedes iluminarme por favor, no consiguo 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 entendereis 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!Adiestra mientoTutelado & "' AS AdiestramientoTutelado, '" & Forms!VisitasAñadir!SubVisitasAñadir.Form!Reconoci mientoMedico & "' AS ReconocimientoMedico, " & _
"'" & Forms!VisitasAñadir!SubVisitasAñadir.Form!Formacio nEspecificas & "' AS FormacionEspecificas, '" & Forms!VisitasAñadir!SubVisitasAñadir.Form!Designac ionRecursosPreventivo & "' AS DesignacionRecursosPreventivo "


db.Execute strsQl, dbFailOnError

.MoveNext

Loop

End With

Set db = Nothing

//Fin de codigo

Gracias de antemano!!!!!