Private Sub Form_Load()
'When the database opens these are the steps it takes to each user EVERY time they log in

    Me.txtUserName = fOSUserName 'retrieves the user name
    LogIN 'Function that creates a login and time stamp when the user logs in. This function will also
          'kick a user out of the database if they user is not registered in the employee table or has been deactivated

  
    Dim rs As ADODB.Recordset
    Dim cmd As ADODB.Command
    
    Set rs = New ADODB.Recordset
    Set cmd = New ADODB.Command
    
    
        cmd.ActiveConnection = CurrentProject.Connection
        cmd.CommandText = "SELECT AccessLevel FROM tblEmployee " _
                        & "WHERE UserName = '" & Me.txtUserName & "'"
        cmd.Execute
        rs.Open cmd, , adOpenKeyset, adLockOptimistic

Set rs = Nothing
Set cmd = Nothing
End Sub