I can see on error in your code, the line

USE (gcDATA) + '\sysuse' ORDER TAG cid ALIAS sysuse

should read

USE (gcDATA + '\sysuse') ORDER TAG cid ALIAS sysuse

>>

Do FORM Login
>>READ EVENTS>

>
>It does not wrok
>
>Thanks for trying
>
>>
>>>I have a program that executes a login form. If I run the form it works as expected. If I run the form form for the program "DO FORM login" it stops at the init method which has the following code in it
>>>

>>>PUBLIC gnuseridcnt , gnpasswordcnt , lcweekday
>>>LOCAL x
>>>
>>>gnuseridcnt		= 0
>>>gnpasswordcnt	= 0
>>>gnUserLev		= 0
>>>m.glValid		= .F.
>>>
>>>Thisform.lblErrorMsg.Caption	= ''
>>>Thisform.lbltoday.Caption		= 'Today is ' + CDOW(DATE()) + ', ' + ;
>>>		CMONTH(DATE()) + ' ' + STR(DAY(DATE()),2) + ', ' + STR(YEAR(DATE()),4)
>>>Thisform.lblPC.Caption			= 'You are using a ' + SYS(17) + ' PC'
>>>
>>>IF ! USED('sysuse')
>>>	USE (gcDATA) + '\sysuse' ORDER TAG cid ALIAS sysuse
>>>	SELECT sysuse
>>>ELSE
>>>	SELECT sysuse
>>>	SET ORDER TO TAG cid
>>>ENDIF
>>>
>>>x = 1
>>>

>>>I can add the "DODEFAUL()" command with out any change in behavior. The x = 1 is there so I could have a place to stop in the debugger.
>>>
>>>I am stumped. Any help appreciated.