Private Function CreateTable(ByVal sTableName As String)
Dim TabDef As New TableDef
Dim Feld As New Field
 
TabDef.name = sTableName
 
Feld.name = "AdressNr"
'Feld.Type = dbLong
Feld.Attributes = dbAutoIncrField
TabDef.Fields.Append Feld
Set Feld = Nothing
DB.TableDefs.Append TabDef
 
Set TabDef = Nothing
 
End Function