Hi SetanPutih,
You have to add another field to your table employee.
admin(Boolean) - additional field
** for real world table, you can have 3 tables - User, Employee, Role
Function IsAdmin(strID As String) As Boolean
Dim blnAns As Boolean
blnAns =...