Sub UserAdd()
Dim mySpace As Workspace
Dim usrMark As User
Dim strUsersPID As String
Set mySpace = DBEngine(0)
strUsersPID = "1234abcd"
Set usrMark = mySpace.CreateUser("Mark")
usrMark.Password = "Doc"
usrMark.PID = strUsersPID
mySpace.Users.Append usrMark
End Sub