Програмное создание файла *.mdb в VB

' ==========================
    '  Создание базы данных .mdb
    ' ==========================
    Dim wrkDefault As Workspace
    Dim dbs As Database
    Dim sNameDB As String
   
    ' название файла для новой базы данных
    sNameDB = "NewDB.mdb"
    ' получаем Workspace по умолчанию
    Set wrkDefault = DBEngine.Workspaces(0)

    ' убеждаемся что файл с таким названием не существует, иначе
    ' удаляем его
    If Dir(sNameDB) <> "" Then Kill sNameDB
        ' создаем новую базу данных
        Set dbs = wrkDefault.CreateDatabase("NewDB.mdb", dbLangGeneral, dbVersion30)
    End If
   
   
    ' =================================
    '  Добавление таблицы в базу данных
    ' =================================
    Dim tdf As TableDef, fld, fld1 As Field
    Dim idx As Index, fldIndex As Field
    Dim rst As Recordset
    Dim NameTable As String
   
    ' имя для новой таблицы
    NameTable = "Табл1"
    ' А вот так можно получить доступ к уже открытой(текущей) базе данных: Set dbs = CurrentDb
    ' Создаем новую таблицу
    Set tdf = dbs.CreateTableDef(NameTable)
    ' Создаем поле Код, которое будет у нас ключевым
    Set fld1 = tdf.CreateField("Код", dbLong)
    fld1.Attributes = fld1.Attributes + dbAutoIncrField
    tdf.Fields.Append fld1
    ' Создаем primary key index.
    Set idx = tdf.CreateIndex("PrimaryKey")
    Set fldIndex = idx.CreateField("Код", dbLong)
    ' Добавляем индексированное поле
    idx.Fields.Append fldIndex
    ' Устанавливаем Primary property.
    idx.Primary = True
    ' Добавляем index.
    tdf.Indexes.Append idx
    ' Определяем и добавляем новые поля в таблицу
    With tdf
        .Fields.Append .CreateField("Сумма", dbText, 10)
        .Fields.Append .CreateField("Дата", dbDate, 10)
        .Fields.Append .CreateField("Пользователь", dbText, 3)
    End With
    ' обновляем коллекцию полей
    tdf.Fields.Refresh
    ' добавление таблицы в коллекцию таблиц базы данных
    dbs.TableDefs.Append tdf
    ' обновляем коллекцию таблиц
    dbs.TableDefs.Refresh
   
    '----------------------------------------
    '  Вторую таблицу аналогично можно создать
    '-----------------------------------------
   
    ' =================================
    '  Установка связей между таблицами
    ' =================================
    ' Например у нас две таблицы: Табл1 и Табл2
    ' в них уже должны быть соответствующие поля (Field), которые будут
    ' удовлетворять всем требованиям для создания связи: т.е. быть одного типа и т.д.
    ' Пусть в каждой из этих таблицах будет по одинаковому полю - "ПолеСвязь"
    Dim tdf1 As TableDefs, tdf2 As TableDefs
    ' связь между таблицами - это объект модели DAO под названием Relation
    Dim relNew As Relation
   
    ' открываем таблицы
    tdf1 = dbs.TableDefs!Табл1
    tdf2 = dbs.TableDefs!Табл2
       
    ' создаем объект связь
    Set relNew = dbs.CreateRelation("НашаСвязь", tdf1.name, tdf2.name, dbRelationUpdateCascade)
   
    ' Теперь в этот объект (связь) - relNew надо добавить указание о полях, через которые будут связаны наши таблицы
    ' Делается это так:
    '         1. Сначала создается поле(Field) под название "ПолеСвязь"
    '            и добавляется в коллекцию полей объекта Relation, т.е. relNew
    '         2. У этого добавленного поля в relNew становится доступным свойство - ForeignName,
    '            в котором надо указать поле другой таблицы для связи (в нашем случае поля наз. одинаково, так что можно не мучаться лишний раз)
    '         3. Вот и все.
    relNew.Fields.Append relNew.CreateField("ПолеСвязь")
    relNew.Fields!DeptID.ForeignName = "ПолеСвязь"
    ' обновляем коллекцию
    dbs.Relations.Append relNew
               
       
    ' особождаем память
    Set tdf = Nothing
    Set dbs = Nothing