Pierde área de trabajo en la vuelta de unciclo

SELECT 1
USE f:\control\se&año
GO top
      DO WHILE !EOF()
              semaño=semaño+1
              IF VAL(mes)=se&año..mespro   aqui en la segunda vuelta pierde el area de trabajo y dice que no encuentra el alias se2010
                  nsemana=nsemana+1
                  IF nsemana=1
                           semini=nsemana
                  ELSE
                           semfin=nsemana
                  ENDIF
                  if semaño < 10
                         sss_1 = '0'+str(semaño,1)
                   else
                         sss_1 = str(semaño,2)
                  endif
                  if file('f:\control\CV&yzona&sss_1&yyy_2..dbf')
                           USE f:\control\CV&yzona&sss_1&yyy_2. ALIAS polcom
                           GO top
                           DO WHILE !EOF()
                                 IF thisform.optiongroup1.optLider.Value=1
                                       IF polcom.numjef != 0
                                              SELECT com
                                              APPEND BLANk
                                                       replace com.sem WITH semaño
                                         Endif
                                      Endif
                            SELECT polcom
                            SKIP
                            enddo
                    ELSE
                             MESSAGEBOX("No existe")
                   Endif
Endif
SELECT 1      Mi problema es aqui al llegar aqui se pierde el area de trabajo  al regresar       arriba en se&año.mespro
skip
ENDDO