I am trying to build a form that will allow those in supervisory positions to
be able to assign other users to different levels of access according to
group policy.  I can get the Groups.Users.Append to work fine, but when I use
Groups.Users.Delete I get a 'Type Mismatch' error on the .Delete.

Here is a sniplet of the code I am using.

============START SNIPLET============
Dim CurrLvl As String          ' Current Access Group
Dim NewLvl As String          ' New Access Group
CurrLvl = Me.CurrAccLvl
NewLvl = Me.NewAccLvl
strUID = Me.txtCPWUserName
Set wrk = DBEngine.Workspaces(0)
With wrk
   If CurrLvl = "View Only" Then
       Set grpUsers = wrk.Groups("View Only")
       Set usr = grpUsers.CreateUser(strUID)
       grpUsers.Users.Delete usr
       grpUsers.Users.Refresh
       If (NewLvl = "Admins") Or (NewLvl = "Supervisors") Then
           Set grpUsers = wrk.Groups("Admins")
           Set usr = grpUsers.CreateUser(strUID)
           grpUsers.Users.Append usr
           grpUsers.Users.Refresh
           If NewLvl = "Supervisors" Then
               Set grpUsers = wrk.Groups("Supervisors")
               Set usr = grpUsers.CreateUser(strUID)
               grpUsers.Users.Append usr
               grpUsers.Users.Refresh
           End If
       End If
============END SNIPLET============

My current user groups are Admins, Supervisors, Users, and View Only.
Admins and Users are the standard built in accounts.
Supervisors are also in the Admins group so they can add/change users, but
restricted from other Admin privledges.
View Only users are just that, they have read permissions only.

Thanks in advance.