Вы можете сохранить пароль, но лучше хешировать пароль, как рекомендовано @ Lee Mac в свойствах базы данных. Свойство может быть изменено в любое время с помощью кода. Изменения остаются в файле базы данных после закрытия базы данных.
Создать недвижимость:
Function CreatePropery()
Dim DB As Database
Dim P As Property
Set DB = CurrentDb
Set P = DB.CreateProperty("MyPassword", DB_TEXT, "MyInitialPassword")
DB.Properties.Append P
End Function
Получить текущий пароль:
Function GetPasswod()
GetPasswod = CurrentDb.Properties![MyPassword]
End Function
Установить новый пароль:
Function SetPassword(strNewPassword As String)
CurrentDb.Properties![MyPassword] = strNewPassword
End Function