firstFound=ascan(laDBFInfo,'bob',1,lnFieldNumber,1,1) DO CASE CASE m.firstFound=0 * NOT FOUND CASE ascan(laDBFInfo,'bob',m.firstFound+1,lnFieldNumber,1,1)=0 * UNIQUE OTHERWISE * DOUBLE ENDCASE for count: STORE 0 TO lastFound FOR cntFound=0 TO ALEN(laDBFInfo,1) lastFound = ascan(laDBFInfo,'bob',m.lastFound+1,lnFieldNumber,1,1) IF m.lastFound=0 EXIT ENDIF ENDFOR ? cntFoundFabio