ดังตัวอย่าง Code ข้างนี้ ถ้าเราอยากจะเพิ่มการเปิด frmMainMenu ทั้งหมดมี cmd ทั้งหมด 3 cmd แต่ว่า ถ้าหากเราพิมพ์  usersname ชื่อ "AFC" or "COM" ไม่สามารถ คลิ๊ก cmd2 และ cmd3 ได้ แต่ถ้า usersname โดยทั่วไปสามารถคลิ๊กได้หมด รบกวนหน่อยนะค่ะ 
 
Function DoWhat(intI As Integer) 
Dim mydb As Recordset 
Dim db As Database 
Dim stDocName As String 
Dim stLinkCriteria As String 
 
Set db = CurrentDb 
stDocName = "frmMainMenu" 
Set mydb = db.OpenRecordset("SELECT * FROM Security WHERE Password= '" & txtPassword & "' and UserName= '" & txtUserName & "'") 
     
    If IsNull(Me![txtUserName]) Or IsNull(Me![txtPassword]) Then 
            MsgBox "You Have to Write Your Name and Password First", vbInformation, "Note" 
            DoCmd.GoToControl "txtUserName" 
            Exit Function 
    ElseIf mydb.EOF Then 
            MsgBox "Either User Name or Password is Not Valid... " & vbCrLf & "Try Again", vbInformation, "Note" 
             
    DoCmd.GoToControl "txtUsername" 
            Exit Function 
    Else 
        If intI = 1 Then 
            DoCmd.OpenForm stDocName, , , stLinkCriteria 
        Else 
            DoCmd.OpenForm "frmChangePassword", , , , , , Me.txtUserName 
        End If 
        DoCmd.Close acForm, "frmLogIn" 
    End If 
 
End Function