How to create and reference a Workspace?

[deko]

I need to create and reference a Workspace (kinda new at this...)

Here's how it works with the current db:

Dim wrk As DAO.Workspace
Set wrk = DBEngine.Workspaces(0)
wrk.BeginTrans

This works fine, but if I want to use another database:

Set wrk = CreateWorkspace("", "admin", "", dbUseJet)
varV = "C:\Documents and Settings\Administrator\My
Documents\Database\MyDatabase.mdb"
Set wrk = DBEngine.Workspaces(wrk.OpenDatabase(varV, True)) <<==
?????????
wrks.BeginTrans

How do I reference the Workspace in this scenario?

Thanks!!!!!!!!!!

[Scott McDaniel]

Use this instead:

Set wrk = CreateWorkspace("", "admin", "", dbUseJet)
varV = "C:\Documents and Settings\Administrator\My
Documents\Database\MyDatabase.mdb"
Set dbs = wrk.OpenDatabase(varV)
"deko" <dj****@hotmail.com> wrote in message
news:aQ*****************@newssvr25.news.prodigy.co m...

I need to create and reference a Workspace (kinda new at this...)

Here's how it works with the current db:

Dim wrk As DAO.Workspace
Set wrk = DBEngine.Workspaces(0)
wrk.BeginTrans

This works fine, but if I want to use another database:

Set wrk = CreateWorkspace("", "admin", "", dbUseJet)
varV = "C:\Documents and Settings\Administrator\My
Documents\Database\MyDatabase.mdb"
Set wrk = DBEngine.Workspaces(wrk.OpenDatabase(varV, True)) <<==
?????????
wrks.BeginTrans

How do I reference the Workspace in this scenario?

Thanks!!!!!!!!!!