Try this:
Private Sub Command0_Click()
If InputBox ("Please enter your password.","Password Checkpoint") = "make_up_a_password_to_fill_in_this_space" Then
Dim stDocName As String
Dim stLinkCriteria As String
stDocName = "Mailing List"
DoCmd.OpenForm stDocName, , , stLinkCriteria...