disable shift startup

Hy, i'm new to this forum so here we go:
I'm using acces 2000 vba and want to disable the use of the shift key at startup.
This to prevent users from getting to the code.
I found this code on the internet but couldn't get it too work:

'This Code Disables the Shift Key
'
Public Sub DisableByPassKeyProperty()
Dim db As Database
Dim prp As Property
Set db = CurrentDb
Set prp = db.CreateProperty("AllowByPassKey", dbBoolean, False)
db.Properties.Append prp
End Sub

I get this error:
Type doesn't match(translated from dutch)
it's on this line from the disable shift key:
Set prp = db.CreateProperty("AllowByPassKey", dbBoolean, False)

Does anyone have an idea on this, Thanx in advance

OK, found an answer
It didn't work because this reference was active:
microsoft activex data objects 2.1 library
Now i'm going to have to check the hole programme to see if everything still works after deactivating this reference:D