contrôle ASCII de la saisie d'un champ

bonsoir à tous,
j'ai un big probleme avec la saisie d'un champ password... j'ai applique un
script dans le code de ce champ pour limiter la saisie aux caracteres
alphanumeriques, mais j'ai la grosse mechante msgbox d'erreur, voici le code
pour les a^mes de bonne volonté :
Option Compare Database
Option Explicit
Private Sub Commande9_Click()
DoCmd.DoMenuItem acFormBar, acRecordsMenu, acSaveRecord, , acMenuVer70
If (IsNull(Password) Or (Password = vbNullString)) Then
MsgBox "VEUILLEZ SAISIR UN PASSWORD VALIDE !"
Me.Password.SetFocus
Else
DoCmd.Close
MsgBox "MODIFICATION DU MOT DE PASSWORD ENREGISTREE"
End If
End Sub

Private Sub Password_KeyDown(KeyCode As String, Shift As String)
If (KeyAscii = 0) Or (KeyAscii > 0 And KeyAscii < 48) Or (KeyAscii > 57 And
KeyAscii < 65) Or (KeyAscii > 90 And KeyAscii < 97) Or (KeyAscii > 122 And
KeyAscii < 128) Then
MsgBox "CE CARACTERE EST INTERDIT"
KeyAscii = 0
End If
End Sub

Meric d'avance pour l'aide que vous pourrez apporter.