Dim dbsNorthwind As Database
	Dim tdfNew As TableDef
	Dim prpLoop As Property

	Set dbsNorthwind = OpenDatabase("Борей.mdb")

	' Создает новый объект TableDef.
	Set tdfNew = dbsNorthwind.CreateTableDef("Контакты")

	With tdfNew
		' Создает поля и добавляет их в новый объект TableDef.
		' Это необходимо сделать до добавления объекта TableDef
		' в семейство TableDefs базы данных "Борей".
		.Fields.Append .CreateField("Имя", dbText)

.Fields.Append .CreateField("Фамилия", dbText)
		.Fields.Append .CreateField("Телефон", dbText)
		.Fields.Append .CreateField("Примечания", dbMemo)

		Debug.Print "Свойства нового объекта TableDef " & _
			"до добавления в семейство:"

		' Отображает семейство Properties нового объекта TableDef.
		For Each prpLoop In .Properties
			On Error Resume Next
			If prpLoop <> "" Then Debug.Print "    " & _
			    prpLoop.Name & " = " & prpLoop

On Error GoTo  0 
		Next prpLoop

		' Добавляет новый объект TableDef в базу данных "Борей".
		dbsNorthwind.TableDefs.Append tdfNew