Should be like this:
Code:
Set UserDB = DBEngine.Workspaces(0).OpenDatabase(App.Path & "\Users.mdb", False, False)