problem adding properties to a access db

[dnzone]

Below is my code and when i executed it, it give the the message below

Dim db As Database

Set db = OpenDatabase("C:\Testing\db1.mdb")
Dim prp As Variant

Set prp = db.CreateProperty("AllowBypassKey", 1, True)

db.Properties.Append prp

"Run-time error '3112':

Record(s) cannot be read; no read permission on 'MSysDb'."



I am using microsoft access 2003 professional sp2

What is the meaning of this message? what did i do wrong? Can anyone please help me slove this problem. Thanks.