I use the AutoExec macro to run a function named start in
a module.
The code for the function is:
Function Start()
Dim Strinput
Strinput = InputBox("If you have an administrator password
please enter it. If not please click
Cancel", "Administrator Password")
If Strinput = "your password goes here" Then
'Do nothing
Else
Application.Quit
End If
If the user does not enter the correct password, Access
quits immediately.
Dave
End Function