Codigo generador

[GILI]

Este codigo espara generar la nomina a los empleados pero la condicion
primera dice que si el empleado se retiro no la genere pero esto me genera
un problema porque si el empleado al que le activo el chulito de retirado
en no megenra la nomina para los otros.

1. If recSet!RETIRADO = True Then
1. Exit Do
Hasta a quie es el problema
Else

IDEMP = recSet!IDEMP
empre1 = recSet!EMPRESA

'Grabar en la tabla DET_NOMINA

Set recset2 = datBas.OpenRecordset("DET_NOMINA")
On Error GoTo error2
Dim vhORA
cont = 0
If empre1 = Me!EMPRESA Then
recset2.AddNew
recset2!NONOMINA = Me!NONOMINA
recset2!IDEMP = recSet!IDEMP