Valgfri dato som standardværdi i tabel

Hej eksperter

Nedenstående kode skulle gerne ændre/sætte en datoværdi som der benyttes som standard når der oprettes nye poster, men værdien bliver i tabellen sat som 30-12-1899, når jeg klikker i feltet ude i tabellen ændres det til 00:00:05, nogen der har et bud på det.

Kode:
Dim db As DAO.Database
Set db = CurrentDb
Dim tbl As TableDef
Set tbl = db.Tabledefs("tbldata")
tbl.Fields("AftaleDato").DefaultValue = Me!txtdato

Jeg forsøger at sætte standardværdien ved at klikke på en knap på min form når jeg har indtastet den nye datoværdi i feltet txtdato,feltet i tabellen er af datatypen DatoKlokkeslet med formatet kort datoformat, det samme gør sig gældende for txtdato i min form.

Mange hilsner Anders.