You can apply a password to the buttons OnClick event
Code:
If InputBox("What is password?", "Password Protected") = "scooby" Then
DoCmd.OpenQuery "Nameofyourquesry", acViewNormal
Else
MsgBox("Incorrect password", vbOKOnly, "Invalid password") = vbOK
End If