Microsoft Access VBA Coding Question - Log In Form

[higgy2005]

Hi there,
I would be very greatful if somebody could help me with my trouble
using VBA to code a button on a form. Basically what i want to happen
is on the click of the button i want it to validate the data entered
into the username and password fields stored in a table. This is not
the problem, the problem is getting it to open a different form for a
manager or for a member of staff dependant on the access level stored
in the same table as the pass and username.
Below i show my coding behind the button.

Private Sub Btn_Login_Click ()

'Check to see if data is entered into the UserName combo box

If IsNull(Me.Cbo_E mployee) Or Me.Cbo_Employee = "" Then
MsgBox "Please select your User Name."
Exit Sub
End If

'Check to see if data is entered into the password box

If IsNull(Me.Txt_P ass) Or Me.Txt_Pass = "" Then
MsgBox "Please enter your Password."
Exit Sub
End If

'Check value of password in tblEmployees to see if this matches value
chosen in combo box

If Me.Txt_Pass.Val ue = DLookup("Employ eePassword", "Tbl_Employ ee",
"[EmployeeNumber]=" & Me.Cbo_Employee .Value) Then

EmployeeNumber = Me.Cbo_Employee .Value

'Close logon form and open splash screen
DoCmd.OpenForm "Frm_Menu Managers"

Else
MsgBox "Log In Details Incorrect. Please Try Again", vbInformation
End If

End Sub
Email any help as this would be much appreciated. thanks in advance
Mike

[Ron2006]

A suggestion:

Since all of the info you require is in the employee table,

1) Base the combo box on a query that gets the following fields in the
following order
empusername emppassword empsecurityleve l
2) have
bound field on combo be field 1
Number of fields is 3
field lengths is 1";0";0"

3) button routine is now

Private Sub Btn_Login_Click ()

'Check to see if data is entered into the UserName combo box

If IsNull(Me.Cbo_E mployee) Or Me.Cbo_Employee = "" Then
MsgBox "Please select your User Name."
Exit Sub
End If

'Check to see if data is entered into the password box

If IsNull(Me.Txt_P ass) Or Me.Txt_Pass = "" Then
MsgBox "Please enter your Password."
Exit Sub
End If

'Check value of password in tblEmployees to see if this matches value
chosen in combo box

if not me.cbo_Employee .column(1) = me.txt_Pass then
MsgBox "Either the Password is incorrect or you selected
the wrong name."
Exit Sub
End If

if Me.Cbo_Employee (2) = "Manager" then ' or whatever
test to say it is manager
DoCmd.OpenForm "Frm_Menu Managers"
else
DoCmd.OpenForm "Frm_Menu for NON Managers"

end if

End Sub
=============== ==========

The column count in combo boxes is relative to 0 - First field is
column 0 etc.

Ron