Создание базы из VBA - нужен совет

Взято из хелп. Доделал для создания 3 связанных таблиц.
Связи - Один ко многим. В общем все работает только немогу понять что это есть в кавычках за 'FullName' ?

' Return reference to new index. 'из хелп
Set idx = tdf.CreateIndex('FullName') 'из хелп

Какой правильный FullName поставить в моем случае в строках:
Set idx1 = tdf1.CreateIndex('PrimaryKey')
Set idx2 = tdf2.CreateIndex('PrimaryKey')
Set idx4 = tdf2.CreateIndex('FullName') '???
Set idx3 = tdf3.CreateIndex('PrimaryKey')
Set idx5 = tdf3.CreateIndex('FullName') '???

Ну и может еще какие замечания - если не трудно.


[code]
Option Compare Database
Option Explicit

' Include following in Declarations section of module.
Dim appAccess As Access.Application

Sub NewAccessDatabase()
Dim dbs As Database
Dim tdf1 As TableDef, idx1 As Index, fldIndex1 As Field, fld1 As Field, fld2 As Field, fld3 As Field, fld4 As Field, fld5 As Field, fld6 As Field
Dim tdf2 As TableDef, idx2 As Index, fldIndex2 As Field, idx4 As Index, fldIndex4 As Field, fld7 As Field, fld8 As Field
Dim tdf3 As TableDef, idx3 As Index, fldIndex3 As Field, idx5 As Index, fldIndex5 As Field, fld9 As Field, fld10 As Field
Dim rel_1 As Relation, fld11 As Field, rel_2 As Relation, fld12 As Field

Dim strDB As String
strDB = 'Cbsdata.mdb'

'Create new instance of Microsoft Access.
Set appAccess = CreateObject('Access.Application.8')

'Open database in Microsoft Access window.
appAccess.NewCurrentDatabase strDB

'Get Database object variable.
Set dbs = appAccess.CurrentDb

'Create new table.
Set tdf1 = dbs.CreateTableDef('MaterialInc')
Set tdf2 = dbs.CreateTableDef('Material')
Set tdf3 = dbs.CreateTableDef('Supplier')

'Create field in table MaterialInc.
Set fld1 = tdf1.CreateField('IDMatInc', dbLong)
fld1.Attributes = fld1.Attributes + dbAutoIncrField
Set fld2 = tdf1.CreateField('IDMat', dbLong)
Set fld3 = tdf1.CreateField('IDSupplier', dbLong)
Set fld4 = tdf1.CreateField('Data', dbDate)
Set fld5 = tdf1.CreateField('Amount', dbSingle)
Set fld6 = tdf1.CreateField('Nakladnaja', dbText, 50)

'Create field in table Material.
Set fld7 = tdf2.CreateField('IDMat', dbLong)
fld7.Attributes = fld7.Attributes + dbAutoIncrField
Set fld8 = tdf2.CreateField('NameMat', dbText, 50)

'Create field in table Supplier.
Set fld9 = tdf3.CreateField('IDSupplier', dbLong)
fld9.Attributes = fld9.Attributes + dbAutoIncrField
Set fld10 = tdf3.CreateField('Firma', dbText, 50)

'Append Field and TableDef objects.
tdf1.Fields.Append fld1
tdf1.Fields.Append fld2
tdf1.Fields.Append fld3
tdf1.Fields.Append fld4
tdf1.Fields.Append fld5
tdf1.Fields.Append fld6
tdf2.Fields.Append fld7
tdf2.Fields.Append fld8
tdf3.Fields.Append fld9
tdf3.Fields.Append fld10

'Create primary key and make index in MaterialInc.
Set idx1 = tdf1.CreateIndex('PrimaryKey')
Set fldIndex1 = idx1.CreateField('IDMatInc', dbLong)
idx1.Fields.Append fldIndex1
idx1.Primary = True
tdf1.Indexes.Append idx1

'Create primary key and make index in Material.
Set idx2 = tdf2.CreateIndex('PrimaryKey')
Set fldIndex2 = idx2.CreateField('IDMat', dbLong)
idx2.Fields.Append fldIndex2
idx2.Primary = True
tdf2.Indexes.Append idx2

Set idx4 = tdf2.CreateIndex('Yes')
Set fldIndex4 = idx4.CreateField('NameMat'

0