Dim oDB As DAO.Database
Dim oTabDef As New DAO.TableDef
Dim oField As New DAO.Field
Dim oProp As DAO.Property
 
' Datenbank erstellen (Access 2000)
Set oDB = DBEngine.CreateDatabase("d:\test_1.mdb", dbLangGeneral, dbEncrypt + _
  dbVersion40)
 
' Neue Tabelle
oTabDef.Name = "Test"
 
' Neues Feld
With oField
  .Name = "Bezeichnung"
  .Type = dbText
  .AllowZeroLength = True
  .DefaultValue = ""
End With
oTabDef.Fields.Append oField
 
' Tabellendefinition in DB schreiben
oDB.TableDefs.Append oTabDef
 
' Jetzt zusätzliche Field-Properties erstellen
With oDB.TableDefs("Test")
  With .Fields("Bezeichnung")
    Set oProp = .CreateProperty("Description", dbText, "Artikelbezeichnung")
    .Properties.Append oProp
  End With
 
  ' ...
End With
oDB.Close

_________________________
Professionelle Entwicklerkomponenten
www.tools4vb.de