Mega Code Archive

 

Categories / VisualBasic Script / Access

 

Add a new user

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