oFB = NEWOBJECT('firebird', 'firebird.prg') IF !oFB.CreateDB('c:\demo.fdb') MESSAGEBOX('Database creation failed '+ CHR(13)+ ofb.output ) RETURN .f. ENDIF cConnStr= "DRIVER=Firebird/InterBase(r) driver; UID=SYSDBA; PWD=masterkey; " + ; "DBNAME=c:\demo.fdb;" lnConnHandle = sqlstringconnect( cconnstr ) IF lnConnHandle <= 0 AERROR(laError) * access is denied error occurs here MESSAGEBOX( laerror[1,2] ) ENDIF