This function searches if the current user has a specific role in the database ACL. To adapt this function you must add more StConstx constants and expand the case for each posibility.
Function HasRoleCurrentUser(StRole As String) As Integer
Dim rez As Variant
Const StConst1="@IsMember(""[ROLE1]""; @UserRoles)"
Const StConst2="@IsMember(""[ROLE2]""; @UserRoles)"
Const StConst3="@IsMember(""[ROLE3]""; @UserRoles)"
Const StConst4="@IsMember(""[ROLE4]""; @UserRoles)"
On Error Goto ErrorLabel
Select Case StRole
If rez(0)<>0 Then