We have a solution to the Security Password problem , I've been having. Thanks to one of her fellow students, MICAH, he revised the code listed below, his remarks are included. Now I want to share this with everyone.
The password portion of this program is simple and straightforward and is a good tool to use for anybody who just wants to employ simple password protection without a lot of code.
If anybody wants a copy of the sample database send me(Bob Lilly) an e-mail at [email protected] and I will forward it to you.



Option Compare Database
Private Sub Command19_Click()
    DoCmd.Quit
End Sub
Private Sub Command16_Click()
    If IsNull(txtUsername) Then
        MsgBox "Invalid username"
        FeedbackToUser.Caption = "Invalid username. Please enter a proper Username" 'i added this caption other than another message box. More than one message box might confuse some users
        FeedbackToUser.Visible = True
        DoCmd.GoToControl "txtUsername" 'i added this VBA code to enable the user go to the control where the problem is
        Exit Sub
    End If
    If IsNull(txtPassword) Then
        MsgBox "Invalid password"
        FeedbackToUser.Caption = "Invalid password. Please enter a proper Password"
        FeedbackToUser.Visible = True
        DoCmd.GoToControl "txtPassword" 'i added this VBA code to enable the user go to the control where the problem is
        Exit Sub
    End If    
    Dim X As Long
    X = Nz(DLookup("UserID", "UserT", "Username='" & txtUsername & "' And Password='" & txtPassword & "'"))  

If X > 0 Then
        ' We have a valid user
        FeedbackToUser.Caption = "Log In Successful"
        FeedbackToUser.Visible = True
        DoCmd.OpenForm "MainMenuF"
        DoCmd.Close acForm, "LoginF"
    Else
        MsgBox "Invalid Logon"
        FeedbackToUser.Caption = "Please enter a proper Username or the Password"
        FeedbackToUser.Visible = True
    End If          
    'DoCmd.Close acForm, "LoginF" 'this is the line that was disturbing you. I freezed up        
End Sub
Private Sub Form_Open(Cancel As Integer)
    FeedbackToUser.Visible = False 'hide the message when the form opens
End Sub
Private Sub txtPassword_BeforeUpdate(Cancel As Integer)
End Sub