VisualdBase

Bonjour je voulais mettre un mot de passe sur un formulaire ds ma base de donnée access j'ai trouver un moyen sur le net. Mais cela ne marche pas. Je vous envoie ce que j'ai écris sur VisualdBase, si quelqu'un pourrait m'aider se serait génial.
Private Sub btnAnnuler_Click()
DoCmd.Close
End Sub

Private Sub btnOK_Click()
If IsNull(Me.txtMotDePasse) Then
MsgBox ("Tapez le mot de passe"), vbInformation
Me.txtMotDePasse.FontBold
Exit Sub
End If
If txtMotDePasse = "top secret" Then
'Fermer la boite de dialogue "Identification"
DoCmd.Close
blnPassword = True
Else
MsgBox "Mot de passe incorrect", vbExclamation
Me.txtMotDePasse.SetFocus
End If
End Sub

Private Sub Form_Open(Cancel As Integer)
' Réinitialiser l'état du mot de passe
' (blnPasswordOK est une variable globale)
blnPasswordOK = False
End Sub

Ce qui est souligné ne marche pas
Il y a peut etre d'autre erreur
Merci d'avance