Pequeño Gran Problema (parte 1)

[Sebas22]

Por favor denme una manito con esto porque ya no le puedo encontrar la vuelta, probe cambiando media docenas de cosas, incluso poniendo el SQL3 y toda esa instruccion de decision IF en otro bucle fuera del Do While RS1.EOF, que es el bucle mas grande que se recorre 2 veces... pero nada, sigue apareciendo el mismo error. Toda esta sentencia IF la puse debajo de este ultimo DO While, con un bucle FOR que se recorre de acuerdo a la cantidad de subrubros que elegi en pasos previos... pero es el mismo problema... ¿Que solucion puedo encontrarle?
Un saludo a todos y gracias anticipadas