Insertar registros de un subformulario desde un formulario padre

[gonpalumpa]

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

Código (vbnet) [Seleccionar] Expandir

//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!!!!!