Dim oTabDef As New TableDef
Dim Db As Database
 
Set Db = DBEngine.OpenDatabase("e:\Access\Renk.mdb")
 
oTabDef.Name = "Testtabelle"
 
With oTabDef
 
  .Fields.Append .CreateField("Feldname1", dbText, 20)
 
  .Fields.Append .CreateField("Feldname2", dbText, 15)
 
  .Fields.Append .CreateField("Feldname3", dbLong)
 
End With