根据一Access网友需要制作的一个把密码直接写在代码里面的示例；初学者朋友拿去参考吧！老鸟请绕行。

代   码:
Private Sub Command12_Click()
'将密码保存在代码里面，密码为111
    If Me.Text7 = "111" Then
        DoCmd.OpenForm "按名称查书"
        DoCmd.Close acForm, "登录界面"
    Else: MsgBox ("请输入正确的密码"), vbCritical
    End If
End Sub

附   件:
 (密码为111，进入代码后也可以自己修改密码)
点击下载此附件

图   示: