ظهور كلمة السر

Private Sub Form_Open(Cancel As Integer)
On Error Resume Next
If InputBox("ÃÏÎá ÇáßáãÉ ÇáÓÑíÉ : æåí Ýí åÐÇ ÇáãËÇá arm", "ßáãÉ ÓÑ ãØáæÈÉ") <> "ahmed" Then
DoCmd.CancelEvent
Else
DoCmd.OpenForm "aa"
End If
End Sub
 اريد اخفاء كلمة السر فى box