'  Starting Access Basic DAO Session...

Dim ERwinWorkspace As Workspace
Dim ERwinDatabase As Database
Dim ERwinTableDef As TableDef
Dim ERwinQueryDef As QueryDef
Dim ERwinIndex As Index
Dim ERwinField As Field
Dim ERwinRelation As Relation

Set ERwinWorkspace = DBEngine.WorkSpaces(0)

Set ERwinDatabase = ERwinWorkspace.OpenDatabase(sERwinDatabase)

'  CREATE TABLE "Isiku_liik"
Set ERwinTableDef = ERwinDatabase.CreateTableDef("Isiku_liik")
Set ERwinField = ERwinTableDef.CreateField("Isiku_liigi_ID", DB_INTEGER)
ERwinField.Required = True
ERwinTableDef.Fields.Append ERwinField
Set ERwinField = ERwinTableDef.CreateField("Nimetus", DB_TEXT, 60)
ERwinField.Required = True
ERwinTableDef.Fields.Append ERwinField
Set ERwinField = ERwinTableDef.CreateField("Fyys_jur_isik", DB_TEXT, 1)
ERwinField.Required = True
ERwinTableDef.Fields.Append ERwinField
Set ERwinField = ERwinTableDef.CreateField("Avatud", DB_DATETIME)
ERwinField.Required = True
ERwinTableDef.Fields.Append ERwinField
Set ERwinField = ERwinTableDef.CreateField("Suletud", DB_DATETIME)
ERwinTableDef.Fields.Append ERwinField
ERwinDatabase.TableDefs.Append ERwinTableDef
Set ERwinField = ERwinTableDef.Fields("Fyys_jur_isik")
SetFieldProp (ERwinField, "Caption", DB_TEXT, "Fyy_jur_isik:")

'  CREATE INDEX "PrimaryKey"

Set ERwinTableDef = ERwinDatabase.TableDefs("Isiku_liik")
Set ERwinIndex = ERwinTableDef.CreateIndex("PrimaryKey")
Set ERwinField = ERwinIndex.CreateField("Isiku_liigi_ID")
ERwinIndex.Fields.Append ERwinField
ERwinIndex.Primary = True
ERwinIndex.Clustered = True
ERwinTableDef.Indexes.Append ERwinIndex

'  CREATE TABLE "Isik"
Set ERwinTableDef = ERwinDatabase.CreateTableDef("Isik")
Set ERwinField = ERwinTableDef.CreateField("Isiku_ID", DB_INTEGER)
ERwinField.Required = True
ERwinTableDef.Fields.Append ERwinField
Set ERwinField = ERwinTableDef.CreateField("Isiku_liigi_ID", DB_INTEGER)
ERwinField.Required = True
ERwinTableDef.Fields.Append ERwinField
Set ERwinField = ERwinTableDef.CreateField("Kood", DB_TEXT, 15)
ERwinField.Required = True
ERwinTableDef.Fields.Append ERwinField
Set ERwinField = ERwinTableDef.CreateField("Nimi", DB_TEXT, 35)
ERwinField.Required = True
ERwinTableDef.Fields.Append ERwinField
Set ERwinField = ERwinTableDef.CreateField("Eesnimi", DB_TEXT, 15)
ERwinTableDef.Fields.Append ERwinField
Set ERwinField = ERwinTableDef.CreateField("Kasutajanimi", DB_TEXT, 32)
ERwinTableDef.Fields.Append ERwinField
Set ERwinField = ERwinTableDef.CreateField("Aadress", DB_TEXT, 100)
ERwinTableDef.Fields.Append ERwinField
Set ERwinField = ERwinTableDef.CreateField("Pangakaardi_tyyp", DB_TEXT, 6)
ERwinTableDef.Fields.Append ERwinField
Set ERwinField = ERwinTableDef.CreateField("Pangakaardi_nr", DB_TEXT, 20)
ERwinTableDef.Fields.Append ERwinField
Set ERwinField = ERwinTableDef.CreateField("Avatud", DB_DATETIME)
ERwinField.Required = True
ERwinTableDef.Fields.Append ERwinField
Set ERwinField = ERwinTableDef.CreateField("Suletud", DB_DATETIME)
ERwinTableDef.Fields.Append ERwinField
ERwinDatabase.TableDefs.Append ERwinTableDef
Set ERwinField = ERwinTableDef.Fields("Isiku_ID")
SetFieldProp (ERwinField, "Caption", DB_TEXT, "Isiku ID:")

'  CREATE INDEX "PrimaryKey"

Set ERwinTableDef = ERwinDatabase.TableDefs("Isik")
Set ERwinIndex = ERwinTableDef.CreateIndex("PrimaryKey")
Set ERwinField = ERwinIndex.CreateField("Isiku_ID")
ERwinIndex.Fields.Append ERwinField
ERwinIndex.Primary = True
ERwinIndex.Clustered = True
ERwinTableDef.Indexes.Append ERwinIndex

'  CREATE INDEX "XIF14Isik"

Set ERwinTableDef = ERwinDatabase.TableDefs("Isik")
Set ERwinIndex = ERwinTableDef.CreateIndex("XIF14Isik")
Set ERwinField = ERwinIndex.CreateField("Isiku_liigi_ID")
ERwinIndex.Fields.Append ERwinField
ERwinTableDef.Indexes.Append ERwinIndex

'  CREATE TABLE "Arve"
Set ERwinTableDef = ERwinDatabase.CreateTableDef("Arve")
Set ERwinField = ERwinTableDef.CreateField("Arve_ID", DB_INTEGER)
ERwinField.Required = True
ERwinTableDef.Fields.Append ERwinField
Set ERwinField = ERwinTableDef.CreateField("Ostja_ID", DB_INTEGER)
ERwinField.Required = True
ERwinTableDef.Fields.Append ERwinField
Set ERwinField = ERwinTableDef.CreateField("Myyja_ID", DB_INTEGER)
ERwinField.Required = True
ERwinTableDef.Fields.Append ERwinField
Set ERwinField = ERwinTableDef.CreateField("Number", DB_TEXT, 10)
ERwinField.Required = True
ERwinTableDef.Fields.Append ERwinField
Set ERwinField = ERwinTableDef.CreateField("Tellimuse_kuupaev", DB_DATETIME)
ERwinField.Required = True
ERwinTableDef.Fields.Append ERwinField
Set ERwinField = ERwinTableDef.CreateField("Soodustuse_prots", DB_INTEGER)
ERwinTableDef.Fields.Append ERwinField
Set ERwinField = ERwinTableDef.CreateField("Komplekteerimise_kuup", DB_DATETIME)
ERwinTableDef.Fields.Append ERwinField
Set ERwinField = ERwinTableDef.CreateField("Makse_kuup", DB_DATETIME)
ERwinTableDef.Fields.Append ERwinField
Set ERwinField = ERwinTableDef.CreateField("Saatmise_kuup", DB_DATETIME)
ERwinTableDef.Fields.Append ERwinField
Set ERwinField = ERwinTableDef.CreateField("Kattesaamise_kuup", DB_DATETIME)
ERwinTableDef.Fields.Append ERwinField
ERwinDatabase.TableDefs.Append ERwinTableDef
Set ERwinField = ERwinTableDef.Fields("Arve_ID")
SetFieldProp (ERwinField, "Caption", DB_TEXT, "Arve_tellimuse_ID:")
Set ERwinField = ERwinTableDef.Fields("Isiku_ID")
SetFieldProp (ERwinField, "Caption", DB_TEXT, "Ostja_ID:")
Set ERwinField = ERwinTableDef.Fields("Isiku_ID")
SetFieldProp (ERwinField, "Caption", DB_TEXT, "Myyja_ID:")
Set ERwinField = ERwinTableDef.Fields("Tellimuse_kuupaev")
SetFieldProp (ERwinField, "Caption", DB_TEXT, "Tellimuse kuupaev:")
Set ERwinField = ERwinTableDef.Fields("Soodustuse_prots")
SetFieldProp (ERwinField, "Caption", DB_TEXT, "soodustuse_prots:")
Set ERwinField = ERwinTableDef.Fields("Komplekteerimise_kuup")
SetFieldProp (ERwinField, "Caption", DB_TEXT, "Kompl_kuup:")
Set ERwinField = ERwinTableDef.Fields("Makse_kuup")
SetFieldProp (ERwinField, "Caption", DB_TEXT, "Makse_Kuup:")

'  CREATE INDEX "PrimaryKey"

Set ERwinTableDef = ERwinDatabase.TableDefs("Arve")
Set ERwinIndex = ERwinTableDef.CreateIndex("PrimaryKey")
Set ERwinField = ERwinIndex.CreateField("Arve_ID")
ERwinIndex.Fields.Append ERwinField
ERwinIndex.Primary = True
ERwinIndex.Clustered = True
ERwinTableDef.Indexes.Append ERwinIndex

'  CREATE INDEX "XIF11Arve"

Set ERwinTableDef = ERwinDatabase.TableDefs("Arve")
Set ERwinIndex = ERwinTableDef.CreateIndex("XIF11Arve")
Set ERwinField = ERwinIndex.CreateField("Ostja_ID")
ERwinIndex.Fields.Append ERwinField
ERwinTableDef.Indexes.Append ERwinIndex

'  CREATE INDEX "XIF12Arve"

Set ERwinTableDef = ERwinDatabase.TableDefs("Arve")
Set ERwinIndex = ERwinTableDef.CreateIndex("XIF12Arve")
Set ERwinField = ERwinIndex.CreateField("Myyja_ID")
ERwinIndex.Fields.Append ERwinField
ERwinTableDef.Indexes.Append ERwinIndex

'  CREATE TABLE "Kaubagrupp"
Set ERwinTableDef = ERwinDatabase.CreateTableDef("Kaubagrupp")
Set ERwinField = ERwinTableDef.CreateField("Kaubagrupi_ID", DB_INTEGER)
ERwinField.Required = True
ERwinTableDef.Fields.Append ERwinField
Set ERwinField = ERwinTableDef.CreateField("Kaubagrupi_nimetus", DB_TEXT, 60)
ERwinField.Required = True
ERwinTableDef.Fields.Append ERwinField
ERwinDatabase.TableDefs.Append ERwinTableDef
Set ERwinField = ERwinTableDef.Fields("Kaubagrupi_ID")
SetFieldProp (ERwinField, "Caption", DB_TEXT, "Kaubagrupi ID:")
Set ERwinField = ERwinTableDef.Fields("Kaubagrupi_nimetus")
SetFieldProp (ERwinField, "Caption", DB_TEXT, "Kaubagrupi nimetus:")

'  CREATE INDEX "PrimaryKey"

Set ERwinTableDef = ERwinDatabase.TableDefs("Kaubagrupp")
Set ERwinIndex = ERwinTableDef.CreateIndex("PrimaryKey")
Set ERwinField = ERwinIndex.CreateField("Kaubagrupi_ID")
ERwinIndex.Fields.Append ERwinField
ERwinIndex.Primary = True
ERwinIndex.Clustered = True
ERwinTableDef.Indexes.Append ERwinIndex

'  CREATE TABLE "Kaup"
Set ERwinTableDef = ERwinDatabase.CreateTableDef("Kaup")
Set ERwinField = ERwinTableDef.CreateField("Kauba_ID", DB_INTEGER)
ERwinField.Required = True
ERwinTableDef.Fields.Append ERwinField
Set ERwinField = ERwinTableDef.CreateField("Kaubagrupi_ID", DB_INTEGER)
ERwinField.Required = True
ERwinTableDef.Fields.Append ERwinField
Set ERwinField = ERwinTableDef.CreateField("Kauba nimetus", DB_TEXT, 60)
ERwinField.Required = True
ERwinTableDef.Fields.Append ERwinField
Set ERwinField = ERwinTableDef.CreateField("Yhik", DB_TEXT, 10)
ERwinField.Required = True
ERwinTableDef.Fields.Append ERwinField
Set ERwinField = ERwinTableDef.CreateField("Avatud", DB_DATETIME)
ERwinField.Required = True
ERwinTableDef.Fields.Append ERwinField
Set ERwinField = ERwinTableDef.CreateField("Suletud", DB_DATETIME)
ERwinTableDef.Fields.Append ERwinField
ERwinDatabase.TableDefs.Append ERwinTableDef
Set ERwinField = ERwinTableDef.Fields("Kauba_ID")
SetFieldProp (ERwinField, "Caption", DB_TEXT, "Kauba ID:")
Set ERwinField = ERwinTableDef.Fields("Kaubagrupi_ID")
SetFieldProp (ERwinField, "Caption", DB_TEXT, "Kaubagrupi ID:")

'  CREATE INDEX "PrimaryKey"

Set ERwinTableDef = ERwinDatabase.TableDefs("Kaup")
Set ERwinIndex = ERwinTableDef.CreateIndex("PrimaryKey")
Set ERwinField = ERwinIndex.CreateField("Kauba_ID")
ERwinIndex.Fields.Append ERwinField
ERwinIndex.Primary = True
ERwinIndex.Clustered = True
ERwinTableDef.Indexes.Append ERwinIndex

'  CREATE INDEX "XIF1Kaup"

Set ERwinTableDef = ERwinDatabase.TableDefs("Kaup")
Set ERwinIndex = ERwinTableDef.CreateIndex("XIF1Kaup")
Set ERwinField = ERwinIndex.CreateField("Kaubagrupi_ID")
ERwinIndex.Fields.Append ERwinField
ERwinTableDef.Indexes.Append ERwinIndex

'  CREATE TABLE "Tellimus tarnijale"
Set ERwinTableDef = ERwinDatabase.CreateTableDef("Tellimus tarnijale")
Set ERwinField = ERwinTableDef.CreateField("Tarnija_tellimuse_ID", DB_INTEGER)
ERwinField.Required = True
ERwinTableDef.Fields.Append ERwinField
Set ERwinField = ERwinTableDef.CreateField("Tarnija_ID", DB_INTEGER)
ERwinField.Required = True
ERwinTableDef.Fields.Append ERwinField
Set ERwinField = ERwinTableDef.CreateField("Isiku_ID", DB_INTEGER)
ERwinField.Required = True
ERwinTableDef.Fields.Append ERwinField
Set ERwinField = ERwinTableDef.CreateField("Tellimuse_number", DB_TEXT, 10)
ERwinField.Required = True
ERwinTableDef.Fields.Append ERwinField
Set ERwinField = ERwinTableDef.CreateField("Tellimuse_kuup", DB_DATETIME)
ERwinField.Required = True
ERwinTableDef.Fields.Append ERwinField
Set ERwinField = ERwinTableDef.CreateField("Avatud", DB_DATETIME)
ERwinField.Required = True
ERwinTableDef.Fields.Append ERwinField
Set ERwinField = ERwinTableDef.CreateField("Suletud", DB_DATETIME)
ERwinTableDef.Fields.Append ERwinField
ERwinDatabase.TableDefs.Append ERwinTableDef
Set ERwinField = ERwinTableDef.Fields("Tarnija_tellimuse_ID")
SetFieldProp (ERwinField, "Caption", DB_TEXT, "Tarnija tellimuse ID:")
Set ERwinField = ERwinTableDef.Fields("Isiku_ID")
SetFieldProp (ERwinField, "Caption", DB_TEXT, "Tellimuse_esitaja_ID:")

'  CREATE INDEX "PrimaryKey"

Set ERwinTableDef = ERwinDatabase.TableDefs("Tellimus tarnijale")
Set ERwinIndex = ERwinTableDef.CreateIndex("PrimaryKey")
Set ERwinField = ERwinIndex.CreateField("Tarnija_tellimuse_ID")
ERwinIndex.Fields.Append ERwinField
ERwinIndex.Primary = True
ERwinIndex.Clustered = True
ERwinTableDef.Indexes.Append ERwinIndex

'  CREATE INDEX "XIF4Tellimus tarnijale"

Set ERwinTableDef = ERwinDatabase.TableDefs("Tellimus tarnijale")
Set ERwinIndex = ERwinTableDef.CreateIndex("XIF4Tellimus tarnijale")
Set ERwinField = ERwinIndex.CreateField("Isiku_ID")
ERwinIndex.Fields.Append ERwinField
ERwinTableDef.Indexes.Append ERwinIndex

'  CREATE INDEX "XIF7Tellimus tarnijale"

Set ERwinTableDef = ERwinDatabase.TableDefs("Tellimus tarnijale")
Set ERwinIndex = ERwinTableDef.CreateIndex("XIF7Tellimus tarnijale")
Set ERwinField = ERwinIndex.CreateField("Tarnija_ID")
ERwinIndex.Fields.Append ERwinField
ERwinTableDef.Indexes.Append ERwinIndex

'  CREATE TABLE "Tarne"
Set ERwinTableDef = ERwinDatabase.CreateTableDef("Tarne")
Set ERwinField = ERwinTableDef.CreateField("Tarne_ID", DB_INTEGER)
ERwinField.Required = True
ERwinTableDef.Fields.Append ERwinField
Set ERwinField = ERwinTableDef.CreateField("Isiku_ID", DB_INTEGER)
ERwinField.Required = True
ERwinTableDef.Fields.Append ERwinField
Set ERwinField = ERwinTableDef.CreateField("Tarnija_tellimuse_ID", DB_INTEGER)
ERwinTableDef.Fields.Append ERwinField
Set ERwinField = ERwinTableDef.CreateField("Tarne_nr", DB_TEXT, 10)
ERwinField.Required = True
ERwinTableDef.Fields.Append ERwinField
Set ERwinField = ERwinTableDef.CreateField("Tarne_kuup", DB_DATETIME)
ERwinField.Required = True
ERwinTableDef.Fields.Append ERwinField
ERwinDatabase.TableDefs.Append ERwinTableDef
Set ERwinField = ERwinTableDef.Fields("Isiku_ID")
SetFieldProp (ERwinField, "Caption", DB_TEXT, "Kauba_tarnija_ID:")
Set ERwinField = ERwinTableDef.Fields("Tarnija_tellimuse_ID")
SetFieldProp (ERwinField, "Caption", DB_TEXT, "Tarnija tellimuse ID:")

'  CREATE INDEX "PrimaryKey"

Set ERwinTableDef = ERwinDatabase.TableDefs("Tarne")
Set ERwinIndex = ERwinTableDef.CreateIndex("PrimaryKey")
Set ERwinField = ERwinIndex.CreateField("Tarne_ID")
ERwinIndex.Fields.Append ERwinField
ERwinIndex.Primary = True
ERwinIndex.Clustered = True
ERwinTableDef.Indexes.Append ERwinIndex

'  CREATE INDEX "XIF5Tarne"

Set ERwinTableDef = ERwinDatabase.TableDefs("Tarne")
Set ERwinIndex = ERwinTableDef.CreateIndex("XIF5Tarne")
Set ERwinField = ERwinIndex.CreateField("Isiku_ID")
ERwinIndex.Fields.Append ERwinField
ERwinTableDef.Indexes.Append ERwinIndex

'  CREATE INDEX "XIF6Tarne"

Set ERwinTableDef = ERwinDatabase.TableDefs("Tarne")
Set ERwinIndex = ERwinTableDef.CreateIndex("XIF6Tarne")
Set ERwinField = ERwinIndex.CreateField("Tarnija_tellimuse_ID")
ERwinIndex.Fields.Append ERwinField
ERwinTableDef.Indexes.Append ERwinIndex

'  CREATE TABLE "Kauba_liikumine"
Set ERwinTableDef = ERwinDatabase.CreateTableDef("Kauba_liikumine")
Set ERwinField = ERwinTableDef.CreateField("Kauba_liikumise_ID", DB_INTEGER)
ERwinField.Required = True
ERwinTableDef.Fields.Append ERwinField
Set ERwinField = ERwinTableDef.CreateField("Arve_ID", DB_INTEGER)
ERwinTableDef.Fields.Append ERwinField
Set ERwinField = ERwinTableDef.CreateField("Kauba_ID", DB_INTEGER)
ERwinField.Required = True
ERwinTableDef.Fields.Append ERwinField
Set ERwinField = ERwinTableDef.CreateField("Tarne_ID", DB_INTEGER)
ERwinTableDef.Fields.Append ERwinField
Set ERwinField = ERwinTableDef.CreateField("Kogus", DB_DOUBLE)
ERwinField.Required = True
ERwinTableDef.Fields.Append ERwinField
Set ERwinField = ERwinTableDef.CreateField("Hind", DB_CURRENCY)
ERwinField.Required = True
ERwinTableDef.Fields.Append ERwinField
ERwinDatabase.TableDefs.Append ERwinTableDef
Set ERwinField = ERwinTableDef.Fields("Arve_ID")
SetFieldProp (ERwinField, "Caption", DB_TEXT, "Arve_tellimuse_ID:")
Set ERwinField = ERwinTableDef.Fields("Kauba_ID")
SetFieldProp (ERwinField, "Caption", DB_TEXT, "Kauba ID:")

'  CREATE INDEX "PrimaryKey"

Set ERwinTableDef = ERwinDatabase.TableDefs("Kauba_liikumine")
Set ERwinIndex = ERwinTableDef.CreateIndex("PrimaryKey")
Set ERwinField = ERwinIndex.CreateField("Kauba_liikumise_ID")
ERwinIndex.Fields.Append ERwinField
ERwinIndex.Primary = True
ERwinIndex.Clustered = True
ERwinTableDef.Indexes.Append ERwinIndex

'  CREATE INDEX "XIF10Kauba_liikumine"

Set ERwinTableDef = ERwinDatabase.TableDefs("Kauba_liikumine")
Set ERwinIndex = ERwinTableDef.CreateIndex("XIF10Kauba_liikumine")
Set ERwinField = ERwinIndex.CreateField("Kauba_ID")
ERwinIndex.Fields.Append ERwinField
ERwinTableDef.Indexes.Append ERwinIndex

'  CREATE INDEX "XIF13Kauba_liikumine"

Set ERwinTableDef = ERwinDatabase.TableDefs("Kauba_liikumine")
Set ERwinIndex = ERwinTableDef.CreateIndex("XIF13Kauba_liikumine")
Set ERwinField = ERwinIndex.CreateField("Arve_ID")
ERwinIndex.Fields.Append ERwinField
ERwinTableDef.Indexes.Append ERwinIndex

'  CREATE INDEX "XIF9Kauba_liikumine"

Set ERwinTableDef = ERwinDatabase.TableDefs("Kauba_liikumine")
Set ERwinIndex = ERwinTableDef.CreateIndex("XIF9Kauba_liikumine")
Set ERwinField = ERwinIndex.CreateField("Tarne_ID")
ERwinIndex.Fields.Append ERwinField
ERwinTableDef.Indexes.Append ERwinIndex

'  CREATE TABLE "Tarnija_tellimuse rida"
Set ERwinTableDef = ERwinDatabase.CreateTableDef("Tarnija_tellimuse rida")
Set ERwinField = ERwinTableDef.CreateField("Tarnija_tellimuse_rea_ID", DB_INTEGER)
ERwinField.Required = True
ERwinTableDef.Fields.Append ERwinField
Set ERwinField = ERwinTableDef.CreateField("Tarnija_tellimuse_ID", DB_INTEGER)
ERwinField.Required = True
ERwinTableDef.Fields.Append ERwinField
Set ERwinField = ERwinTableDef.CreateField("Kauba ID", DB_INTEGER)
ERwinField.Required = True
ERwinTableDef.Fields.Append ERwinField
Set ERwinField = ERwinTableDef.CreateField("kogus", DB_DOUBLE)
ERwinField.Required = True
ERwinTableDef.Fields.Append ERwinField
ERwinDatabase.TableDefs.Append ERwinTableDef
Set ERwinField = ERwinTableDef.Fields("Tarnija_tellimuse_ID")
SetFieldProp (ERwinField, "Caption", DB_TEXT, "Tarnija tellimuse ID:")

'  CREATE INDEX "PrimaryKey"

Set ERwinTableDef = ERwinDatabase.TableDefs("Tarnija_tellimuse rida")
Set ERwinIndex = ERwinTableDef.CreateIndex("PrimaryKey")
Set ERwinField = ERwinIndex.CreateField("Tarnija_tellimuse_rea_ID")
ERwinIndex.Fields.Append ERwinField
ERwinIndex.Primary = True
ERwinIndex.Clustered = True
ERwinTableDef.Indexes.Append ERwinIndex

'  CREATE INDEX "XIF2Tarnija_tellimuse rida"

Set ERwinTableDef = ERwinDatabase.TableDefs("Tarnija_tellimuse rida")
Set ERwinIndex = ERwinTableDef.CreateIndex("XIF2Tarnija_tellimuse rida")
Set ERwinField = ERwinIndex.CreateField("Tarnija_tellimuse_ID")
ERwinIndex.Fields.Append ERwinField
ERwinTableDef.Indexes.Append ERwinIndex

'  CREATE INDEX "XIF3Tarnija_tellimuse rida"

Set ERwinTableDef = ERwinDatabase.TableDefs("Tarnija_tellimuse rida")
Set ERwinIndex = ERwinTableDef.CreateIndex("XIF3Tarnija_tellimuse rida")
Set ERwinField = ERwinIndex.CreateField("Kauba ID")
ERwinIndex.Fields.Append ERwinField
ERwinTableDef.Indexes.Append ERwinIndex

ERwinDatabase.Close
ERwinWorkspace.Close
'  Terminating Access Basic DAO Session...