Описание
Определяет пароль для учетной записи пользователя (только в рабочей области Microsoft Jet).

Значение
Данное значение имеет тип String и может содержать строку длиной до 14 символов, включая любые символы кроме символа ASCII с кодом 0 (пустого). Значение данного свойства доступно только для записи для новых объектов, еще не добавленных в семейство, и недоступно для существующих объектов.

Замечания
При создании нового объекта User значение свойства Password задается вместе со значением свойства PID.
Метод NewPassword позволяет изменить значение свойства Password для существующего объекта User. Для удаления пароля следует указать в аргументе новыйПароль метода NewPassword пустую строку ("").
Пароли определяются с учетом регистра.
Пользователь, не имеющий разрешения на доступ, не может изменить пароль, определенный другим пользователем.

Пример
Следующая программа использует метод CreateUser и свойства Password и PID для создания нового объекта User. Далее новый объект User включается в разные объекты Group, а затем для него печатаются списки свойств и групп.

Sub CreateUserX()

	Dim wrkDefault As Workspace
	Dim usrNew As User
	Dim grpNew As Group
	Dim usrTemp As User
	Dim prpLoop As Property
	Dim grpLoop As Group
	Set wrkDefault = DBEngine.Workspaces(0)

	With wrkDefault

		' Создает и добавляет новый объект User.
		Set usrNew = .CreateUser("НовыйПользователь")
		usrNew.PID = "AAA123456789"
		usrNew.Password = "НовыйПароль"
		.Users.Append usrNew
		' Создает и добавляет новый объект Group.
		Set grpNew = .CreateGroup("НоваяГруппа", "AAA123456789")
		.Groups.Append grpNew
		' Делает пользователя "НовыйПользователь" членом
		' группы "НоваяГруппа", создавая и добавляя
		' подходящий объект User в семейство Users группы.
		Set usrTemp = 	.Groups("НоваяГруппа").CreateUser("НовыйПользователь")
		.Groups("НоваяГруппа").Users.Append usrTemp
		Debug.Print "Свойства " & usrNew.Name

		' Отображает семейство Properties объекта НовыйПользователь.
		' Свойство PID недоступно для чтения.
		For Each prpLoop In usrNew.Properties
			On Error Resume Next
			If prpLoop <> "" Then Debug.Print "    " & _
				prpLoop.Name & " = " & prpLoop
			On Error GoTo 0
		Next prpLoop
		Debug.Print "Семейство Groups объекта " & usrNew.Name

		' Отображает семейство Groups объекта НовыйПользователь.
		For Each grpLoop In usrNew.Groups
			Debug.Print "    " & _
				grpLoop.Name
		Next grpLoop

		' Удаляет объекты User и Group, созданные 
		' только для демонстрации.
		.Users.Delete "НовыйПользователь"
		.Groups.Delete "НоваяГруппа"

	End With
End Sub