Thanks. Glad to know i'm on the right track. The logo screen still does not appear, even with the code change of adding a second read events. Anything wrong with my code behind the Login button on the login screen (see below):
oVar.UserIdText = ALLTRIM(ThisForm.TxtUserName.Value)
oVar.UserPwdText = oPro.Encrypt(ALLTRIM(ThisForm.TxtPassword.Value))
&&Now Check for valid user id/password
IF !USED('V_sold_log')
USE ALLTRIM(ovar.sysdatapath) + 'ULAS!V_sold_log' IN 0 SHARED
ENDIF
SELECT V_sold_log
=REQUERY()
IF _tally > 0
oVar.LoginOk = .T.
thisform.release()
ELSE
ENDIF
RETURN
Thanks in Advance.
J. Turner