Here is some code I found here a while back, Hope it helps.
************************************************

* turn on the toolbar for reports
LOCAL coalias, lok,ccurrentrfile,lcoldonerror

* if retrun if this is the standard or professinal version
* ie this is the development environment so that the
* resource file isn't changes
IF VERSION(2) = 2 OR VERSION(2) = 1
	RETURN
ENDIF

coalias=ALIAS()
ccurrentrfile = SYS(2005)
SET RESOURCE OFF
lok = .T.
lcoldonerror = ON("error")
ON ERROR lok = .F.
USE &ccurrentrfile EXCLUSIVE IN 0

IF lok
	SELECT foxuser
	GO TOP
	LOCATE FOR TYPE = "PREFW" AND ID = "REPORTTOOLS"
	IF FOUND()
		REPLACE ckval WITH 60721,UPDATED WITH DATE()
	ELSE
		INSERT INTO foxuser (TYPE,ID,NAME,READONLY,ckval,DATA,UPDATED) ;
			VALUES ("PREFW","REPORTTOOLS","",.F.,60721,"",DATE())
	ENDIF
	USE IN foxuser
ENDIF

SET RESOURCE ON
SET RESOURCE TO &ccurrentrfile
IF NOT EMPTY(coalias)
	SELECT (coalias)
ENDIF
ON ERROR &lcoldonerror
RETURN