Visual Basic DB zur Laufzeit erstellen

Tag Ihr,
ich Progge gerade wieder etwas herum und kriege ums verrecken nicht hin eine Datenbank (Access) zur Laufzeit in Visual Basic zu erstellen

Ich versuche das Ganze wie folgt:

Sub datenbankanlegen()


Dim td As TableDef
Dim fld As Field


Set ws = DBEngine.Workspaces(0)
Set db = ws.CreateDatabase(App.Path & "/Daten.mdb", dbLangGeneral, dbVersion30)
Set td = db.CreateTableDef("ADaten")


td.Name = "ADaten"


Set fld = td.CreateField("Datum", dbDate) '<- FEHLERMELDUNG ERFOLGT HIER
td.Fields.Append fld
Set fld = td.CreateField("Auftragsnummer", dbText, 50)
td.Fields.Append fld


usw.
db.TableDefs.Append td


db.Close
End sub

Die DB wird auch erstellt bricht aber beim erstellen der ersten Spalte "Datum" mit der Fehlermeldung "Typen unverträglich" ab.
Verweise auf DAO 3.6 sowie ActiveX sind gesetzt.
Gleicher Code funktioniert bereits in einem anderen Programm ohne Probleme.

Jemand eine Idee ??

Danke
Timo

Ach weist Du, daß ist eigentlich echt simpel
Soll ich's Dir erklären?

Und außerdem drohe mir nicht gleich ich bin auch sensibel

Ich schreibe die Software für ein Umzugsunternehmen.
Auftragserstellung, Kundenmanagement etc.

Aber stimmt schon, nahe dran an der Weltherrschaft .... :p

Hab's auch hinbekommen, lag daran das ich ADO und DAO gleichzeitig laufen habe. Wenn man dann nicht fld eindeutig als DAO Komponente deklariert läuft halt auf nen Fehler, eigentlich logisch.

In diesem Sinne .....

legt euch wieder hin