'Skapa Databas
Dim tblDef As TableDef
Dim fldID As Field
Dim fldStartNr As Field
Dim fldNamn As Field
Dim fldKlubb As Field
Dim fldSkoter As Field
Dim fldSpeaker As Field
Dim dbName As String

dbName = App.Path & "\" & Tävlingsnamn & "\Databas.mdb"

Set db = DBEngine.Workspaces(0).CreateDatabase(dbName, dbLangGeneral)

'Skapar databasen
Set tblDef = db.CreateTableDef("Anmälan")

'Skapar fälten
Set fldID = tblDef.CreateField("ID", dbLong) ' PrimärN, Räknare?
Set fldStartNr = tblDef.CreateField("StartNr", dbText, 5)
Set fldNamn = tblDef.CreateField("Namn", dbText, 50)
Set fldKlubb = tblDef.CreateField("Klubb", dbText, 50)
Set fldSkoter = tblDef.CreateField("Skoter", dbText, 50)
Set fldSpeaker = tblDef.CreateField("Speaker", dbMemo)

'Knyter fälten till tabellen
tblDef.Fields.Append fldID
tblDef.Fields.Append fldStartNr
tblDef.Fields.Append fldNamn
tblDef.Fields.Append fldKlubb
tblDef.Fields.Append fldSkoter
tblDef.Fields.Append fldSpeaker

'Knyter tabellen till databasen
db.TableDefs.Append tblDef
db.Close

Detta funkar ju nästan tjohoo, men hur får jag fältet ID som primärnyckel och räknare?

/Danne