VAR db : INTEGER IF db:=OpenDB('database/adressen.dat','',0,0) THEN //read access .. ReOpenDB(db,15) //enable write access .. CloseDB(db) END