User power

[Jon]

Greeting,
I have created the below code and I placed it in event on load of the main
form. It works with only if the user added to the table or not. What I want
to do is set up more user power (read, write, delete, and full control. How
to do that with same table of user power please??
Dim CurrUser As String ' once user login to db
Dim allowUser As Variant ' the allowed users
'========================= to get cuurent user
CurrUser = NetworkUserName()
allowUser = DLookup("[EmployeeID]", "Employee Privileges", "[EmployeeID] ='"
& CurrUser & "'")
If allowUser > 0 Then
Me.Command37.Enabled = True
Me.Command38.Enabled = True
Me.AllowAdditions = True
Me.AllowDeletions = True
Me.AllowDeletions = True
Me.AllowEdits = True

Else
Me.Command37.Enabled = False
Me.Command38.Enabled = False