Opret tabel

    Dim db As Database
    Dim tbl As TableDef
    Dim fld As Field
    Dim idx As Index
    '
    Set db = CurrentDb()
    Set tbl = db.CreateTableDef("tblObservation")
    Set fld = tbl.CreateField("KundeNr", dbLong)
    fld.OrdinalPosition = 1
    fld.Attributes = dbAutoIncrField
    tbl.Fields.Append fld
    '
    Set fld = tbl.CreateField("Kundenavn", dbText)
    fld.OrdinalPosition = 2
    fld.Size = 50
    fld.Required = True
    fld.AllowZeroLength = False
    tbl.Fields.Append fld
    '
    'Opret index
    Set idx = tbl.CreateIndex("PrimayKey")
    idx.Primary = True
    idx.Required = True
    idx.Unique = True
    '
    Set fld = idx.CreateField("KundeNr")
    idx.Fields.Append fld
    tbl.Indexes.Append idx
    db.TableDefs.Append tbl
    RefreshDatabaseWindow