deleting a user with DAO

I'm trying to delete as user from a workgroup file using DAO.
Maybe someone has a snippet that does this.

I'm starting with something along the lines of:

Dim ws As Workspace
Dim usr As User
Set ws = DBEngine.CreateWorkspace("", "dbadmin", "dbadmin")

Now do I need to cycle all groups to delete the user from each one?
If I only use:
ws.users.delete(username) it doesn't seem to be enough.
Do I need to refresh all groups or can the users be deleted from as single
place and be gone from all groups?

Thanks.

Jesper


.