Help! Run-time error 3358 cannot open Workgroup Information File

[Jozef]

Hello,

I am running the code shown below, and when it runs the
"doc.Permission s=1048319" line, I get a "Run-time error 3358: Cannot open
the Microsoft Jet Engine workgroup information file". I've looked on the
Microsoft website (where I normallly get 1000 convoluted results based on my
searches) and when I type this in, I don't get a single result. Any ideas?

conDBPwd = "TestPasswo rd"

Sub DataModificatio n()
Dim wrk As dao.Workspace
Dim db As Database
Dim strDatabase As String
Dim tdf As TableDef
Dim doc As Document

strDatabase = "C:\Test\MyDb.m db"

Set wrk = CreateWorkspace ("", "Admin", "", dbUseJet)

Set db = wrk.OpenDatabas e(strDatabase, False, False, ";pwd=" & conDbPwd)

Set doc = db.Containers!T ables("MyTable" )
doc.Permissions = 1048319
Debug.Print tdf.Fields.Coun t

For Each Field In tdf.Fields
Debug.Print Field.Name
Next Field

Set db = Nothing
Set wrk = Nothing
End Sub

[Jozef]

Any ideas at all?

"Jozef" <[e-mail]> wrote in message news:BZ88f.6288 7$Io.43505@clgr ps13...

Hello,

I am running the code shown below, and when it runs the
"doc.Permission s=1048319" line, I get a "Run-time error 3358: Cannot open
the Microsoft Jet Engine workgroup information file". I've looked on the
Microsoft website (where I normallly get 1000 convoluted results based on
my searches) and when I type this in, I don't get a single result. Any
ideas?

conDBPwd = "TestPasswo rd"

Sub DataModificatio n()
Dim wrk As dao.Workspace
Dim db As Database
Dim strDatabase As String
Dim tdf As TableDef
Dim doc As Document

strDatabase = "C:\Test\MyDb.m db"

Set wrk = CreateWorkspace ("", "Admin", "", dbUseJet)

Set db = wrk.OpenDatabas e(strDatabase, False, False, ";pwd=" & conDbPwd)

Set doc = db.Containers!T ables("MyTable" )
doc.Permissions = 1048319
Debug.Print tdf.Fields.Coun t

For Each Field In tdf.Fields
Debug.Print Field.Name
Next Field

Set db = Nothing
Set wrk = Nothing
End Sub