3625 : Item not found in collection...

[Ovid]

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?

[Andrew Empson]

I would normally make a myWS variable containing the dbengine, then open the database separately.
Also, app.path may not contain a backslash at the end.

i.e.

dim myWs as Workspace
dim myDb as Database

Set myWs=dbengine.workspaces(0)
Set myDB=myWs.OpenDatabase(app.path & "\Users.mdb")

Try that.

[Ovid]

It was my workspaces(1) instead of 0. How do I make a new workspace?

[Andrew Empson]

Syntax:
Set workspace = CreateWorkspace(name, user, password, type)

Example:

Dim wrkODBC as Workspace

Set wrkODBC = CreateWorkspace("ODBCWorkspace", "admin", _
		"", dbUseODBC)
	Workspaces.Append wrkODBC