Mike:

I changed the INIT to like this. Now all is well.

LOCAL cHomedir
cHomeDir = IIF(_VFP.StartMode = 5, JUSTPATH(_vfp.ServerName), SUBSTR(JUSTPATH(SYS(16, 0)), 22))
OPEN DATABASE (cHomeDir + '\data\ATS.dbc') SHARED

USE Acat IN 0
USE Acat2 IN 0
USE Aap IN 0
USE Login IN 0

Regards,
Charlie