Private Sub Form_Load()
Dim Db As Database
Dim dbFile As String
Dim Feld As New Field
 
' Datenbankpfad
dbFile = App.Path & "\Data.mdb"
 
' Datenbank exklusiv öffnen
Set Db = OpenDatabase(dbFile, True, False)
 
With Db.TableDefs("Straßen").Fields
  Feld.Name = "Von_Km"
  Feld.Type = dbDecimal
  ' Feld hinzufügen
  .Append Feld
  Set Feld = Nothing
 
  Feld.Name = "Nach_Km"
  Feld.Type = dbDecimal
  ' Feld hinzufügen
  .Append Feld
  Set Feld = Nothing
 
  Feld.Name = "Info"
  Feld.Type = dbText
  Feld.Size = 100
  Feld.AllowZeroLength = True
 
  ' Feld hinzufügen
  .Append Feld
  Set Feld = Nothing
End With
 
' Datenbank schliessen
Db.Close
Set Db = Nothing
 
End Sub