Your code works for me. Where exactly are you having a problem?

>Hi,
>Thank you. I have go thru your sample code and declare llError as you mentioned. However, it still not work. Here is my code:
>
>

>PROCEDURE CheckFileIsInUse
>LPARAMETER tcDBName
>
>LOCAL lcCurDB, laTables[1], lnTableNum, lnCount, lcONERROR, llInUse
>PRIVATE llError
>lcCurDb = DBC()
>
>lcONERROR = ON("ERROR")
>
>llError = .F.
>ON ERROR llError = .T.
>
>SET DATABASE TO (tcDBName)
>lnTableNum = ADBOBJECTS(laTables, "Table")
>
>FOR lnCount = 1 TO lnTableNum
>	llError = .F.
>	USE (laTables[lnCount]) EXCLUSIVE ALIAS tmpCheckTable IN 0
>	
>	llInUse = llError
>	
>	USE IN SELECT("tmpCheckTable")
>	
>	IF llInUse
>		EXIT
>	ENDIF
>ENDFOR
>
>SET DATABASE TO (lcCurDB)
>ON ERROR &lcONERROR
>
>RELEASE llError
>
>RETURN llInUse
>
>ENDPROC
>
>

>
>Please advise
>
>Thank you