Private Sub cmdErstellen_Click()
' 'DB' wurde als Database deklariert und tablescount ist ein String, "Data" ist 
' der hauptabschitt der temp.ini
Dim sValue As String
Dim sZahl As Integer
Dim td As String
sValue = GetIniString("Data", "tablescount", "", App.Path & "\temp.ini")
sZahl = Val(sValue)
 
Set DB = Workspaces(0).CreateDatabase(txtDbPath.Text, dbLangGeneral, dbEncrypt _
  + dbVersion30)
 
' tabellen erstellen
For i = 1 To sZahl
td = GetIniString("Data", "table" & i, "", App.Path & "\temp.ini")
TabDef.Name = td
' main feld hinzufügen
Feld.Name = "DatensatzNr"
Feld.Type = dbLong
Feld.Attributes = dbAutoIncrField
TabDef.Fields.Append Feld
Set Feld = Nothing
 
sValue = GetIniString(td, "fieldscount", "", App.Path & "\temp.ini")
sZahl = Val(sValue)
'die anderen benutzerdefinierten felder hinzufügen.
For s = 1 To sZahl
sValue = GetIniString(sValue, "table" & s, "", App.Path & "\temp.ini")
Feld.Name = sValue
Feld.Type = dbText
Feld.Size = 100
Feld.AllowZeroLength = True
TabDef.Fields.Append Feld
Set Feld = Nothing
Next
' hier steckt der fehler!!!!!!!!!!!!!!!
DB.TableDefs.Append TabDef
Next
Set TabDef = Nothing
DB.Close
Set DB = Nothing
Unload Me
End Sub