ทำมาโครโดยกำหนดเงื่อนไข (Condition) เช่น [User]="Admin", OpenFormA และอีกบรรทัดหนึ่ง [User]<>"Admin", OpenFormB เป็นต้น

1.สร้างตารางเก็บ user ครับ ชือ tbl_user มีฟิวด์ id (primary key), username, password, startfrom เช่น
id     user        password          startform
    1     BH         ****                  frm_Main
    2     admin ****                      frm_admin
2. สร้างฟอร์ม frm_Main และ frm_admin เพื่อให้ user เข้าฟอร์ม frm_Main ส่วน admin เข้า frm_admin
3. สร้างฟอร์มหน้า log in ใส่ text box สอง boxes ชื่อ user และ pass
ในฟอร์มนี้สร้างปุ่ม ตกลง (หรืออะไรก็แล้วแต่สื่อว่าให้เข้าระบบได้) และปุ่ม ยกเลิก
ใส่โค้ดที่ปุ่มตกลงว่า
Private Sub Command6_Click()
Me.user.SetFocus 'user คือ ชื่อ text box ที่ใช้ป้อน username ซึ่งควรใส่ Me.แล้วตามด้วยชื่อของ text box นั้น, ส่วน SetFocus ไม่เกี่ยวกับชื่อฟิวด์ ต้องใส่เสมอ
        Dim StartForm As Variant
        StartForm = dlookup("startform", "tbl_user", "username = '" & Me.user & "' and password = '" & Me.pass & "' ")
        If Not IsNull(StartForm) Then
        MsgBox "Welcome to ........"
        DoCmd.Close
        DoCmd.OpenForm StartForm
        DoCmd.Maximize
        Exit Sub
    Else
        MsgBox "Invalid username or password"
    End If
End Sub