Thanks John

When I run my new code it fails at the second time I test if the table is open. It says file is in use. Whats more is that if it fails and I run it again I get the same message. Any ideas?

LOCAL lcusername, lcuserstate

thisform.WindowState = 1

lcusername = ALLTRIM(READINI( "PREFS", "LASTUSER", "P:\QUESTPDM.INI"))
lcusertate = ''

= WRITEINI( "PREFS", "LASTUSER", thisform.combo1.displayvalue, "P:\QUESTPDM.INI")

SET EXCLUSIVE OFF

IF !USED("userlog")
	USE userlog IN 0 SHARED
ENDIF

INSERT INTO 'userlog' (pdmuserid, domuserid, datetimei, insystem) VALUES (thisform.combo1.displayvalue, SYS(0), DATETIME(), 'in') 

! U:\questpdm\questpdm.exe

SET EXCLUSIVE OFF

IF !USED("userlog")
	USE userlog IN 0 SHARED
ENDIF

SET ORDER TO NEIL   && ALLTRIM(PDMUSERID)+ALLTRIM(INSYSTEM)

SEEK 'lcusername'+'In'
REPLACE UserLog.DateTimeO WITH DATETIME(), UserLog.insystem WITH 'Out'

CLEAR EVENTS
QUIT