[Acc97]Paswoord op form

[BBKiller4Life]

Hoi allemaal. Ik heb eerder eens in een database een wachtwoord beveiligiing op wat forms gezet.
Dit is daarvoor de code:
Private Sub Form_Open(Cancel As Integer)
Dim Hold As Variant
Dim tmpKey As Long
Dim I As Integer
Dim rs As Recordset
Dim db As Database

On Error GoTo Error_Handler
' Check to see if the user is passing in the Password.
Hold = InputBox("Please Enter Your Password", "Enter Password")
' 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 info. Please 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 "You entered the wrong password, or you cancelled. " & _
"Please 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

Nu leest hij de wachtwoorden uit tblPassword.
Om te zorgen dat men niet gewoon tblPassword opent en het wachtwoord daar uit haalt is de input mask bij het veld password in password, dus gecodeerd. Nu kon je die wachtwoorden omzetten in die gecodeerde taal via het debug venster. Je moest dan wat opgeven en dan gaf hij je daar een numerieke code voor, die je dan in tblPassword moest zetten. Ik heb dit uit de knowledge database van microsoft maar ik kan het nu niet meer vinden en weet dus niet meer wat ik moet runnen om een gewon woord om te zetten in wachtwoord...
Ik hoop dat ik duidelijk genoeg ben en alvast bedankt.