Password protected form

[mosh]

Hello All,

I have found the following code to password protect my form, it works but I have one problem, the input txt box does not have the input mask set so the password can be seen on screen, here is the code I have:

Private Sub Maintenance_Button_Click()
Dim strPasswd

strPasswd = InputBox("Enter Password", "Restricted Form")

'Check to see if there is any entry made to input box, or if
'cancel button is pressed. If no entry made then exit sub.

If strPasswd = "" Or strPasswd = Empty Then
MsgBox "No Input Provided", vbInformation, "Required Data"
Exit Sub
End If

'If correct password is entered open Employees form
'If incorrect password entered give message and exit sub

If strPasswd = "ssd" Then
DoCmd.OpenForm "Maintenance", acNormal
DoCmd.Close acForm, "Menu", acSaveNo
Else
MsgBox "Sorry, you do not have access to this form", _
vbOKOnly, "Important Information"
Exit Sub
End If


End Sub


Can anyone advise on what vba cmd to use in the password string to enable the password input mask?

Regards
________
Live sex webshows