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("D:\Grigory\MYBASE\profi\biblia\minpost.mdb")

 '  CREATE TABLE "TContr" 
Set ERwinTableDef = ERwinDatabase.CreateTableDef("TContr")
Set ERwinField = ERwinTableDef.CreateField("Contr_Id", DB_LONG)
ERwinField.Attributes = ERwinField.Attributes + DB_AUTOINCRFIELD
ERwinTableDef.Fields.Append ERwinField
Set ERwinField = ERwinTableDef.CreateField("Contr_Name", DB_TEXT,  255 )
ERwinTableDef.Fields.Append ERwinField
ERwinDatabase.TableDefs.Append ERwinTableDef

 '  CREATE TABLE "TDoc"