Dim dbhandle As String
 
    'Datenbank erstellen
    dbhandle = "provider=Microsoft.Jet.OLEDB.4.0;"
    dbhandle = dbhandle & "Data Source=" & dbfile & ";"
    db.Create (dbhandle)
 
    'Tabelle erstellen
    table(0).Name = "Tabelle1"
    db.Tables.Append table(0)
 
    '--------------------------------------------------------------------------
    ' -----
 
    'Spalten erstellen
    With column(0)
      Set .ParentCatalog = db
        .Name = "Spalte1"
        .Type = adInteger
        .Properties("AutoIncrement") = True
    End With
    db.Tables("Tabelle1").Columns.Append column(0)
 
    'Index erstellen
    With idx(0)
      .Name = "Primärschlüssel"
      .IndexNulls = adIndexNullsDisallo
      .PrimaryKey = True
      .Unique = True
      .Columns.Append "Spalte1"
    End With
    db.Tables("Tabelle1").Indexes.Append idx(0)
 
    '--------------------------------------------------------------------------
    ' -----
 
    'Spalte erstellen
    With column(1)
      Set .ParentCatalog = db
        .Name = "Spalte2"
        .DefinedSize = 20
    End With
    db.Tables("Tabelle1").Columns.Append column(1)
 
    'Index erstellen
    With idx(1)
      .Name = "Index1"
      .IndexNulls = adIndexNullsDisallow
      .PrimaryKey = False
      .Unique = True
      .Columns.Append "Spalte2"
    End With
    db.Tables("Tabelle1").Indexes.Append idx(1)

mfg
peacemaker

e-mail: vbarchiv@web.de