Access XP and System.MDW

When adding a new user under Access97, the following code always worked:

Code:

---

    Dim NewUser As User
    Dim NewWorkspace As Workspace
    Set NewWorkspace = DBEngine.Workspaces(0)
    Set NewUser = NewWorkspace.CreateUser(txtUserName, txtPID, txtPassword1)
    NewWorkspace.Users.Append NewUser
    NewWorkspace.Users.Refresh

---

Now, since changing to XP, it errors out on the "Set NewUser" line. Anyone have a better way of adding users?