Access - password

Hola en esto soy un novato. Estoy haciendo una base de datos con dos formularios y quiero ponerle a un formulario un contraseña o password. Que codígo tengo que ponerle
muchas gracias

1ª Forma

Dim Password As String

MsgBox "lalalalalalal", vbInformation, "Titulo"
If MsgBox("¿Desea acceder a esta parte de la aplicación?", vbYesNo, "Titulo") = vbYes Then
Password = InputBox("Contraseña de Acceso: ", "Titulo", "")
If Password <> "Alberto" Then
MsgBox "La PASSWORD Introducida no es Correcta", vbCritical, "Titulo"
If MsgBox("¿Desea Salir de la Aplicación?", vbYesNo, "Titulo") = vbYes Then
DoCmd.Quit
Else
While Password <> "Alberto"
Password = InputBox("Contraseña de Acceso Incorrecta: ", "Titulo", "Escriba la Contraseña Correcta")
Wend
End If
Else
End If
Else
MsgBox "Continue Trabajando", vbInformation, "Titulo"
DoCmd.Close
End If

2ª Forma

Dim Password As String

Password = InputBox("Contraseña de Acceso: ", "Titulo", "")
While Password <> "PEPE"
Password = InputBox("Contraseña de Acceso Incorrecta: ", "Titulo", "Escriba la Contraseña Correcta")
Wend

Esto funciona bien.

Muchas Gracias por la ayuda