problem adding properties to a access db (error '3112')

[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.