Been over five years since Ive touched VB but I remember setting a user/pass prompt & assigning keys to ****
a simple google search will bring this up for you
Private Sub Form_Load()
Dim strPass as String
strPass = InputBox("Enter Password")
If strPass <> "Password" Then
MsgBox "Access denied"
Private sub OK_click()
If PSWbox.text = "your password goes here" then
Else MsgBox "tell user that the password is wrong"
add something like this to whatever naming convention uve used