DB Lock (1 Viewer)

Hello,

the following is the procedure which I've written to open my db.

Set db = OpenDatabase(Application.CurrentProject.Path + "\myproject.mdb", False, False)

But,the database is getting locked and I am able to edit the forms and code before running this procedure.why is it happening?
could any one pls suggest me.

Thanks
sarath

Just use this instead, much easier and foolproof(ish)

Set db = CurrentDB