How to change a password in a form?

I used the code below (found in another thread) to create a password
protected form...it works great...However (here's where I feel like an
idiot).
If I want to change the password from PASSWORD where can I do that? 
I've tried in the tblPassword under KeyCode (honestly not sure why Key
Code
"2818" works)-but I can't change it to an actual password.
And i've tried it under the input mask of my textbox text0 didn't work?

I know what an idiot--but would appreciate ANY help!!
Thanks
Laurie



In the module sheet, type the following procedure:Public MyPassword
Public Function KeyCode(Password As String) As Long
   ' This function will produce a unique key for the
   ' string that is passed in as the Password.
   Dim I As Integer
   Dim Hold As Long

   For I = 1 To Len(Password)
      Select Case (Asc(Left(Password, 1)) * I) Mod 4
      Case Is = 0
         Hold = Hold + (Asc(Mid(Password, I, 1)) * I)
      Case Is = 1
         Hold = Hold - (Asc(Mid(Password, I, 1)) * I)
      Case Is = 2
         Hold = Hold + (Asc(Mid(Password, I, 1)) * _
            (I - Asc(Mid(Password, I, 1))))
      Case Is = 3
         Hold = Hold - (Asc(Mid(Password, I, 1)) * _
            (I + Len(Password)))
   End Select
   Next I
   KeyCode = Hold
End Function
					
 
5. Press ALT+F11 to return to Access. 
6. In the Database window, under Objects, click Tables, and then click
New. 
7. In the New Table dialog box, double-click Design View. 
8. Create a new table as follows:   Table: tblPassword
   ---------------------------
   Field Name: ObjectName
      Data Type: Text
      Field Size: 50
   Field Name: KeyCode
      Data Type: Text
      Field Size: 25
      Input Mask: Password

   Table Properties: tblPassword
   -----------------------------
      PrimaryKey: ObjectName
					
 
9. Open the tblPassword table and then enter the following data:  
   ObjectName: Orders
       KeyCode: 2818
					
 
10. Create a new form in design view and save the form as frmPassword. 
11. Add a single textbox to frmPassword called Text0, and a command button
called CheckPassword. 
12. Set the Input Mask property of Text0 to "PASSWORD" (minus the
quotation
marks). 
13. Add the following code to the OnClick Event of the CheckPassword
button
and then save the form:If IsNull(Forms!frmPassword!Text0.Value) Then
                 MsgBox "You cannot enter a blank Password. Try again."
                 Me!Text0.SetFocus
            Else
                 MyPassword = Me!Text0.Value
                 DoCmd.Close acForm, "frmPassword"
            End If 
					
 
14. Open the Orders form in Design view. 
15. If the property sheet is not visible, click Properties on the View
menu. 
16. Type the following event procedure in the module for the OnOpen
property
of the form:Private Sub Form_Open(Cancel as Integer)
   Dim Hold As Variant
   Dim tmpKey As Long
   Dim I As Integer
   Dim rs As DAO.Recordset
   Dim db As DAO.Database

   On Error GoTo Error_Handler
   ' Prompt the user for the Password.
   DoCmd.OpenForm "frmPassword", acNormal, , , , acDialog
            Hold = MyPassword
' Open the table that contains the password.
   Set db = CurrentDb
   Set rs = db.OpenRecordset("tblPassword", dbOpenTable)
   rs.Index = "PrimaryKey"
   rs.Seek "=", Me.Name
   If rs.NoMatch Then
      MsgBox "Sorry cannot find password information. Try Again"
      Cancel = -1
   Else
      ' Test to see if the key generated matches the key in
      ' the table; if there is not a match, stop the form
      ' from opening.
      If Not (rs![keycode] = KeyCode(Cstr(Hold))) Then
         MsgBox "Sorry you entered the wrong password." & _
            "Try again.", vbOKOnly, "Incorrect Password"
         Cancel = -1
      End If
   End If
   rs.Close
   db.Close
   Exit Sub

Error_Handler:
   MsgBox Err.Description, vbOKOnly, "Error #" & Err.Number
   Exit Sub
End Sub

-- 
Message posted via AccessMonster.com
http://www.accessmonster.com/Uwe/Forums.aspx/access-forms/200808/1