DB Lock

[am_sarath]

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

 

[Emohawk]

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

Set db = CurrentDB