'Remove a user from a group
Public Sub DeleteUserFromGroup(strUser As String, _
strGroup As String)
    Dim wrk As DAO.Workspace

    Set wrk = DBEngine(0)
    On Error Resume Next

    wrk.Users(strUser).Groups.Delete strGroup

    Set wrk = Nothing
End Sub