Error trying to change permissions

[Jozef]

Hello,

I have some code pasted below. It works down to the line where it sets the
permissions for the document and throws an exception "Runtime error 3358;
Cannot open the microsoft jet workgroup information file". I'm not using
anything more than the system.mdw for the workgroup info file. There isn't
even a password on the database. Any ideas?

Thanks!

Function ChangePermissions()
Dim db As dao.Database, con As Container, doc As dao.Document
'Set db = CurrentDb()
Set db = OpenDatabase("C:\MyDatabase.mdb", False, False)

Set con = db.Containers!Tables
Set doc = con.Documents![MyTable]
With doc
.Permissions = dbSecFullAccess
End With
Set doc = Nothing
Set con = Nothing
Set db = Nothing

End Function

[Jozef]

Can anyone give me ANY idea what might be wrong with the code?

"Jozef" <[e-mail]> wrote in message news:p6gaf.98130$ir4.95068@edtnps90...

Hello,

I have some code pasted below. It works down to the line where it sets
the permissions for the document and throws an exception "Runtime error
3358; Cannot open the microsoft jet workgroup information file". I'm not
using anything more than the system.mdw for the workgroup info file.
There isn't even a password on the database. Any ideas?

Thanks!

Function ChangePermissions()
Dim db As dao.Database, con As Container, doc As dao.Document
'Set db = CurrentDb()
Set db = OpenDatabase("C:\MyDatabase.mdb", False, False)

Set con = db.Containers!Tables
Set doc = con.Documents![MyTable]
With doc
.Permissions = dbSecFullAccess
End With
Set doc = Nothing
Set con = Nothing
Set db = Nothing

End Function