User ID & Password

I have successfully created a user id & password prompt which works excellently.

The database i have created has three forms inwhich two departments access. I have an issue where one department is only allowed to view a search screen and the other department is allowed to enter in information and search. I also have a section for managers to login and run reports.

In my userid & password table i have created and field called Level which includes: Administrator, Manager, Bookings,User

Admin - Full Access
Managers - Full Access - But not able to edit queries and tables
Bookings - Order Form, Search Form
User - Search Form

Here is the code i have used:

Login OK Button:-

Private Sub login_Click()

If txtPassword.Value = DLookup("Password", "tblAccess", "[UserId] = txtUser.Value") Then
CheckFlag
DoCmd.Close acForm, "frmUserLogon"
Else
MsgBox "INCORRECT PASSWORD! Please try again"
End If

End Sub

Module1:
Option Compare Database
Public Flag As Integer '1: Reports Opener 2:Log 3:OpenUKSupplier

Function CheckFlag()
Select Case Flag
Case 1
DoCmd.OpenForm "frmReports Menu"

Case 2
DoCmd.OpenForm "frmbooking"
Case 3
DoCmd.OpenForm "Frmsearch"
Case Else
'Should never be here

End Select
End Function

Where would i add the code to the module or to the event?