起動時シフトキーを無効にして、作成したmdbのセキュリテーを高める方法について

以下のコードは、次回起動時シフトキーを無効にする方法らしいのですが、★印のところで、型が一致しませんとエラーが出てしまいます。
どうしてでしょか？対応方法を教えてください。


Function NoShiftKey()
　　ChangeProperty "AllowBypassKey", dbBoolean, False
End Function
Function ChangeProperty(strPropName As String, varPropType, varPropValue) As Integer

On Error GoTo エラー

　　Dim dbs As Database, prp As Property
　　Const conPropNotFoundError = 3270
　　Set dbs = CurrentDb
　　dbs.Properties(strPropName) = varPropValue
　　ChangeProperty = True

　　Exit Function

エラー:
　　If Err = conPropNotFoundError Then
　　　　Set prp = dbs.CreateProperty(strPropName, varPropType, varPropValue)　'★この行でエラーがでます。
　　　　dbs.Properties.Append prp
　　　　Resume Next
　　Else
　　　　ChangeProperty = False
　　　　Exit Function
　　End If
End Function

No.3 ベストアンサー 回答者： t2hayashi 回答日時： 2008/01/28 13:10

no.2回答者です。

私がAC2000で使ってたコードです。

━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━

Public Function notshift()

Dim Dbs As Database
Dim prp As Property

On Error GoTo error1

Set Dbs = CurrentDb '外部DBの場合はOpenDatabaseでフルパス指定

'shiftキーが利かないようにする
E2:


If Dbs.Properties!AllowBypassKey = True Then

Dbs.Properties!AllowBypassKey = False
MsgBox ("バイパスキー使用不可になりました")
Else

Dbs.Properties!AllowBypassKey = True
MsgBox ("バイパスキー使用可になりました")
End If


Dbs.Properties.Refresh


Exit Function

error1:
If Err = 3270 Then
'プロパティーが見つからない場合createする
Set prp = Dbs.CreateProperty("AllowBypassKey", dbBoolean, True)
'プロパティーに追加する
Dbs.Properties.Append prp
Resume E2

End If

MsgBox "設定失敗しました。"



End Function

No.2 回答者： t2hayashi 回答日時： 2008/01/25 14:21

ACCESSのバージョンは？

そもそもエラー時の動きなのでエラーが出ないようにすることを
考えるほうが本質的かと。



ちなみに該当行を
Set prp = Dbs.CreateProperty("AllowBypassKey", dbBoolean, True)

としたらどうですか？

この回答への補足

Access2000です。
Access2003では、うごきました。

補足日時：2008/01/27 18:06

No.1 回答者： redfox63 回答日時： 2008/01/24 23:13

当方のAccess2003ではこのコードでそのまま通りますが ・・・

引数varPropValueを varPropValue As Booleanと型指定してもだめでしょうか