[AccessD] Error message - Record(s) can't be read; no read permission on 'M SysGroups'.

Hi

getting this error - user has read, write, insert and delete access for all
tables in front end and BE

I get when in this function

Private Function IsInAdmin(Optional strUser As String = "") As Integer
Dim grp As Group
  If strUser = "" Then strUser = CurrentUser
  For Each grp In DBEngine.Workspaces(0).Users(strUser).Groups
<<<<<<<<<<<<<<<<  error here
    If grp.Name = "Admins" Then
      IsInAdmin = True
      Exit For
    End If
  Next
End Function


Can u help please

Richard
--------------------------------------------------------------------------------------------------------------------
This e-mail, together with any files transmitted with it, is
confidential and intended solely for the use of the individual to
whom it is addressed. If you are not the intended recipient, or
the person responsible for delivering to the intended recipient,
be advised that you have received this e-mail in error and that any
use, dissemination, forwarding, printing or copying of this e-mail
is strictly prohibited without liability on our part.

By responding to this e-mail it is accepted that your response 
may be the subject of recording/monitoring to ensure compliance 
with the Council’s ICT Security Policy

If you have received this e-mail in error please notify the sender.