Code Error on Form To Disable Shift Key

[burrina]

I am trying to implement code to disable the shift key. I have a Password Form that if password is correct opens another form named frmSetCloseState and it is here that you can enable or disable the shift key. When this form is opened it asks if you want to enable the shift key, if so the forms command button is visible and enabled, else it is not and the form closes.
Here is my code error: Pic Attached

[June7]

Did you build the SetProperties custom function in a public (general) module?

Review http://www.databasedev.co.uk/disable_shift_bypass.html

[burrina]

Got it working. TOO Good in fact. Cant Disable the stupid thing now!

Wow, fixed that. Now, what am I doing wrong with this code? I am trying to limit the number of attempts a user can have before closing.

If IsNull(Forms!frmPassword!Text0.Value) Then
MsgBox "You cannot enter a blank Password. Try again."
Me!Text0.SetFocus

End If

If Me.Text0.Value & "'" <> Me.Text0.Value Then 'No More Than 3 Attempts Allowed
' Me.Text0.Value = Me.Text0.Value + 1
If Me.Text0.Value > 3 Then
MsgBox "You may not make more than three Password entry attempts.", vbCritical + vbOKOnly, "Oops!"
DoCmd.Quit
End If
MsgBox "The Password for " & Me.Text0.Value & " is incorrect." & vbCrLf & _
"Please enter your correct Password or contact your Application " & _
"Administrator.", vbOKOnly, "Password for " & Me.Text0.Value & " Incorrect"
Exit Sub
Else
If (Forms!frmPassword!Text0 = "*************") Then

Dim stDocName As String
Dim stLinkCriteria As String

stDocName = "frmSetCloseState"
DoCmd.OpenForm stDocName, , , stLinkCriteria
DoCmd.Close acForm, Me.Name
End If
End If

[burrina]

Solved this with some code adjustments. Thanks.