Access XP and System.MDW

[JeffCarlin]

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

    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?