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!