Sub AddUserToGroup() Dim mySpace As Workspace Dim usrMark As User Set mySpace = DBEngine(0) Set usrMark = mySpace.CreateUser("Mark Fenton") mySpace.Groups("Registrars").Users.Append usrMark End Sub