A ver si me aclaro.... ¿podrías poner el valor de iDia, de iPrimerDiaSemanaMes
y de iDiasDelMes? Si no lo pudo seguirlo.
Y otra cosa, en un bucle condicional de registros además de movenext necesitas controlar los End Of File ( osea EOF) tal como:
do while iActual <= iDiasDelMes AND not rs2.EOF
Si no tambien casca
Un saludo