simplificação de Do Wile

CODE
REC.MoveFirst

Do While Not REC.EOF

REC1.MoveFirst

Do While REC1!IdOrdemManutencao <> REC!IdOrdemManutencao

REC1

Loop

With REC1

 .Clone

 !ProducaoActualManutencao = !ProducaoActualManutencao + 1

 !ProducaoParcuialManutencao = !ProducaoParcialManutencao + 1

 .Update

End With

REC.MoveNext

Loop

existe alguma forma para melhorar esta parte do codigo, é que por vezers demora muito tempo a ser percorrido o pedaço deste código?