3625 : Item not found in this collection...

Set UserDB = DBEngine.Workspaces(1).OpenDatabase(App.Path + "Users.mdb")

In the above code, I get the error "Item not found in collection." Now, I have used this same code with different databases several times. I have done the exact same with this as I have with the others. And ideas?

Should be like this:

Code:

---

Set UserDB = DBEngine.Workspaces(0).OpenDatabase(App.Path & "\Users.mdb", False, False)

---