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
? cntFound