สอบถาม form login หลายระดับ

ผมอยากเขียน form login หลายระดับทำไงครับ
ผมมี field name อีกตัวชื่อ >>  Em_Position << เอาไว้ใส่ค่า  ADMIN  หรือ USER

ผมอยากให้ login ระดับ user เปิด from Frm_main
และอยากให้ ระดับ ADMIN เปิด From Frm_backoffice


ตอนนี้เขียน code แบบด้านล่างนี้ครับ

==================================

Option Compare Database


'=================
'frmLogin code:
'=================

Private Sub btnOK_Click()

    Dim strUser As String
    Dim strSQL As String
    Dim rst As Object
    Dim intCount As Integer
    
    strUser = Nz(Me.txtUser, 0)
    strPWD = Nz(Me.txtPassword, 0)
    

    strSQL = "SELECT Em_User,Em_Pass FROM F_Employees WHERE Em_User='" & strUser & "' AND Em_Pass= '" & strPWD & "'"
    
    
    Set rst = CurrentDb.OpenRecordset(strSQL)
    
    intCount = rst.RecordCount
    
    Select Case intCount
        Case 0
            MsgBox "incorrect credentials, try again"
        Case 1
          
            DoCmd.OpenForm "Frm_Main"
            Me.Visible = False
    End Select
    
End Sub

==================================