Here is my problem, I need to open the database EXCLUSIVE because it has to
run from a Cd-rom, at the moment the program makes a *.LDB file for
multiuser purpurs, ofcaurse this file cant be written to the CD-Rom so the
program Exits.
How do I get around that ?

Here is some of the code!

<CUT>
Statemends i MODULE1

Global dbname As String
Global DB As Database
Global RS As Recordset

Statemends i FORM1 (Form_Load)

Private Sub Form_Load()
dbname = App.Path & "\emu.mdb"
Set DB = DBEngine.Workspaces(0).OpenDatabase(dbname)
Set RS = DB.OpenRecordset("EMU", dbOpenDynaset)
<CUT>

You'll have to open it "read-only"
:
  - Set DB = DBEngine.Workspaces(0).OpenDatabase(dbname. True, True)

HTH.

Dag.
-----------------