Access - 2 últimas actualizaciones

Dim SqlCont, SqlAct, SqlTemp, NumeroOrden As String

Dim RegCont, RegAct As Recordset

Dim NumRegCont, IndRegCont As Integer

Dim IdActTemp As Integer

Dim IdContTemp, NombActTemp As String

Dim FecActTemp As Date

Dim FCActTemp, CCActTemp, FNActTemp, CNActTemp As Single

Dim UActTemp, ActActTemp As Integer

SqlCont = "SELECT Contrato.IdContrato FROM Contrato"   'Consulta con todos los contratos

Set RegCont = CurrentDb.OpenRecordset(SqlCont)

RegCont.MoveLast

NumRegCont = RegCont.RecordCount

RegCont.MoveFirst

For IndRegCont = 1 To NumRegCont   'Recorre la consulta de contratos una a una

   NumeroOrden = RegCont.Fields("IdContrato")

   ' Consulta de las dos últimas actualizaciones de cada contrato

   SqlAct = "SELECT TOP 2 Actualizaciones.IdActualizacion, Actualizaciones.IdContrato, Actualizaciones.NombreActualizacion, Actualizaciones.FechaActualizacion, Actualizaciones.FacturableContrato, Actualizaciones.CosteContrato, Actualizaciones.FacturableNovela, Actualizaciones.CosteNovela, Actualizaciones.UTE, Actualizaciones.Actualizado FROM Actualizaciones WHERE ((Actualizaciones.IdContrato) = '" + NumeroOrden + "') ORDER BY Actualizaciones.IdContrato, Actualizaciones.UTE DESC, Actualizaciones.IdActualizacion DESC;"

   Set RegAct = CurrentDb.OpenRecordset(SqlAct)

   If Not RegAct.BOF Then

      RegAct.MoveLast

      While Not RegAct.BOF   'Inserta los 2 registros en la tabla 2UltAct

         IdActTemp = RegAct.Fields("IdActualizacion")

         IdContTemp = RegAct.Fields("IdContrato")

         NombActTemp = RegAct.Fields("NombreActualizacion")

         FecActTemp = RegAct.Fields("FechaActualizacion")

         FCActTemp = RegAct.Fields("FacturableContrato")

         CCActTemp = RegAct.Fields("CosteContrato")

         FNActTemp = RegAct.Fields("FacturableNovela")

         CNActTemp = RegAct.Fields("CosteNovela")

         UActTemp = RegAct.Fields("UTE")

         ActActTemp = RegAct.Fields("Actualizado")

         SqlTemp = "INSERT INTO 2UltAct (IdActualizacion, IdContrato, NombreActualizacion, FechaActualizacion, FacturableContrato, CosteContrato, FacturableNovela, CosteNovela, UTE, Actualizado) VALUES ('" & IdActTemp & "', '" & IdContTemp & "', '" & NombActTemp & "', '" & FecActTemp & "', '" & FCActTemp & "', '" & CCActTemp & "', '" & FNActTemp & "', '" & CNActTemp & "', '" & UActTemp & "', '" & ActActTemp & "');"

         CurrentDb.Execute SqlTemp

         RegAct.MovePrevious

      Wend

   End If

   RegAct.Close

   RegCont.MoveNext

Next IndRegCont