Dim oTabDef As New TableDef
Dim Db As Database
 
Set Db = DBEngine.OpenDatabase("Datenbank.mdb")
 
oTabDef.Name = "Name_der_neuen_Tabelle"
With oTabDef
  .Fields.Append .CreateField("Feldname1", dbText, 20)
  .Fields.Append .CreateField("Feldname2", dbText, 15)
  .Fields.Append .CreateField("Feldname3", dbLong)
  ...
End With
 
Db.TableDefs.Append oTabDef

_________________________
Professionelle Entwicklerkomponenten
www.tools4vb.de