bin gerade dabei, den Workshop durchzuarbeiten. Allerdings habe ich die Anlage der einzelnen Datenfelder so realisiert:

    With Tabelle
        .Fields.Append .CreateField("AdressNr", dbLong)
        .Fields.Append .CreateField("Anrede", dbText, 20)
        .... usw.

Das klappt auch, die Tabelle wird angelegt und das ohne irgendeine Fehlermeldung.

Was mich jetzt etwas stört ist, dass ich nach jedem angelegten Feld AllowZeroLength definieren muss. Zumindest bin ich noch nicht auf eine andere Lösung gekommen. Momentan sieht das so aus:

    With Tabelle
        .Fields.Append .CreateField("AdressNr", dbLong)
        .Fields("AdressNr").Attributes = dbAutoIncrField
        .Fields.Append .CreateField("Anrede", dbText, 20)
        .Fields("Anrede").AllowZeroLength = True
        .Fields.Append .CreateField("Name", dbText, 50)
        .Fields("Name").AllowZeroLength = True
        .....usw.

Wie gesagt, funktionieren tut's ja - aber geht das nicht auch einfacher?