อาจารย์ครับ ถ้าผมต้องการให้ ปิดโปรแกรม ถ้าเกิด (USERNAME) ไม่ถูกต้อง หรือไม่ใช่เครื่องของUSER คนนั้นครับ

ตอนนี้ถ้าไม่ใช่ USERNAME หรือเครื่องของตัวแล้ว โปรแกรมจะฟ้องว่าไม่ถูกต้อง แต่พอปิด title box นั้นแล้ว ก็จะสามารถเปิดได้ตามปกติ แต่ไม่สามารถซ่อนส่วนที่เป็น Admin ได้ครับ
ผมใช้code ตามข้างล่างนี้ครับ ควรเพิ่มเติมตรงไหนครับ

Private Sub Form_Load()
Dim Security As Integer

Me.txtUser = Environ("USERNAME")

If IsNull(DLookup("UserSecurity", "tblUser", "[UserLogin] = '" & Me.txtUser & "'")) Then
    MsgBox "No UserSicurity set up for this user. Please contact the Admin", vbOKOnly, "Login info"
Else

    Security = DLookup("UserSecurity", "tblUser", "[UserLogin] = '" & Me.txtUser & "'")
    If Security = 1 Then
       Me.NavigationButton13.Enabled = True
       
    Else
       Me.NavigationButton13.Enabled = False
    End If
    
End If
       
End Sub