Mike,

Just before my query, I have:

cSaveErr = ON("ERROR")
SET ESCAPE ON
SET TALK ON
SET NOTIFY ON
ON ESCAPE lCancelled = .T.	
ON ERROR lError = .T.

Just after, I have:

SET TALK OFF
SET NOTIFY OFF
SET ESCAPE OFF
ON ERROR &cSaveErr
			
IF lCancelled
  MESSAGEBOX("Query cancelled by user",64, .Caption)
ENDIF

The query continues to run even when I press Escape