*!*	USE tbl6_1 IN  0  
*!*	USE tbl6_2 IN  0  
*!*	USE tbl6_3 IN  0  
IF !USED ('tbl6_1')
	USE f:\l6\data\tbl6_1.dbf IN  0 
ENDIF
IF !USED ('tbl6_2') 
	USE f:\l6\data\tbl6_2.dbf IN  0 
ENDIF
IF !USED ('tbl6_3')
	USE f:\l6\data\tbl6_3.dbf IN  0 
ENDIF  
*!*	USE f:\l6\data\tbl6_1 
*!*	USE f:\l6\data\tbl6_2 
*!*	USE f:\l6\data\tbl6_3 
DO WHILE !EOF()
	k=key
	s=fio
	s=ALLTRIM(s)
	i=AT(" ",s)
	fam=LEFT(s,i)
	j=RAT(" ",s)
	ot=RIGHT(s,LEN(s)-j)
	im=SUBSTR(s,i+ 1 ,j-i- 1 )
	s=adr
	s=ALLTRIM(s)
	fz=AT(",",s)+ 4 
	lz=RAT(",",s)-fz
	dom=substr(s,fz,lz)
	i=RAT(" ",s)
	kvar=INT(VAL(RIGHT(s,LEN(s)-i)))
	fz=AT(".",s)+ 2 
	lz=AT(",",s)-fz
	uli=SUBSTR(s,fz,lz)
	SKIP
	SELECT  0 
	SET ORDER TO  0 
	LOCATE FOR uli==ALLTRIM(n)
	IF FOUND() 
		uli=kod
	ENDIF
	SELECT  0 
	APPEND BLANK
	
	REPLACE f WITH fam, i WITH im, o WITH ot, kod WITH uli, d WITH dom, kv WITH kvar
	SELECT  0 
ENDDO

По приведенному коду - вместо SELECT  0  в цикле надо SELECT _соответствующая_область_
Это что сразу бросается в глаза.
А разрешите полюбопытствовать, на фига такая семантическая приблуда понадобилась?