Dimitri I don't understand where to place
IF rsThesi.Index < rsThesi.Count THEN
rsThesi.MoveNext()
ENDIF
If I use it for the loop of all the rows it only stops at row 2
and it shows Label12 (for example) red
It also passes row 1 !!!
I don't know if something like GOTO (the beginning of the routine) works here!