В данном примере демонстрируется процедура «SetStartupProperties», в 
которой передается имя свойства, значение которого требуется задать, его 
тип данных и задаваемое значение. В общей процедуре «ChangeProperty» 
делается попытка задать значение стартового свойства и, если свойство не 
найдено, вызывается метод CreateProperty для добавления свойства в 
семейство свойств базы данных. Эти действия являются необходимыми, 
поскольку данные свойства не включаются в семейство до первого 
определения их значений.

Sub SetStartupProperties()
	ChangeProperty  "StartupForm" , dbText,  "Клиенты" 
	ChangeProperty  "StartupShowDBWindow" , dbBoolean, False
	ChangeProperty  "StartupShowStatusBar" , dbBoolean, False
	ChangeProperty  "AllowBuiltinToolbars" , dbBoolean, False
	ChangeProperty  "AllowFullMenus" , dbBoolean, True
	ChangeProperty  "AllowBreakIntoCode" , dbBoolean, False
	ChangeProperty  "AllowSpecialKeys" , dbBoolean, True
	ChangeProperty  "AllowBypassKey" , dbBoolean, True

End Sub

Function ChangeProperty(strPropName As String, varPropType As Variant, varPropValue As Variant) As Integer
	Dim dbs As Database, prp As Property
	Const conPropNotFoundError =  3270 

	Set dbs = CurrentDb
	On Error GoTo Change_Err
	dbs.Properties(strPropName) = varPropValue
	ChangeProperty = True

Change_Bye:
	Exit Function

Change_Err:
	If Err = conPropNotFoundError Then	' Свойство не найдено.
		Set prp = dbs.CreateProperty(strPropName, _

varPropType, varPropValue)
		dbs.Properties.Append prp
		Resume Next
	Else
		' Неизвестная ошибка.
		ChangeProperty = False
		Resume Change_Bye
	End If
End Function