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