* Database Open Function DOpen Lparameters cDBCPath,cDBCParms Local aDBCs Dimension aDBCs[1] If ADatabases(aDBCs)=0 Open Database ( cDBCPath ) &cDBCParms Return .t. EndIf iPos = ASCAN(aDBCs, JustFname(cDBCPath) ) If iPos <> 0 Set Database To ( cDBCPath ) Close Databases Open Database ( cDBCPath ) &cDBCParms Else Set Database To Open Database ( cDBCPath ) &cDBCParms Set Database To ( JustStem( JustFname(cDBCPath) ) ) EndIf Return .t. EndFunc...open("e:\database.dbc","shared noupdate")