Ændre standardværdier ved hjælp af formular

Kræver reference til DAO. Husk at du ikke kan ændre tabellen, hvis denne er åben:

Dim db As DAO.Database
Set db = CurrentDb
Dim tbl As TableDef
Set tbl = db.Tabledefs("Tabel2")
tbl.Fields("felta").DefaultValue = "burger"

Tak for dit som altid meget præcist og hurtigt svar!

Selv tak, og tak for point.

Hovsa, selv om jeg lige har givet point er der så stadig hjælp at hente??
Jeg har:
Private Sub Kommandoknap76_Click()
Dim db As DAO.Database
Set db = CurrentDb
Dim tbl As TableDef
Set tbl = db.Tabledefs("Til ændring af standardværdier i bestillinger")
tbl.Fields("Leveringsdato1").DefaultValue = Me.Leveringsdato1
MsgBox "Standardværdien i Tabel2 felta er nu sat til:" & vbNewLine & vbNewLine & Me.felt1
End Sub
Jeg får fejlmeddelelse:
Dim db As DAO.Database
---- at denne type ikke er defineret!!

Naturligvis er der hjælp så længe problemet ikke er løst. Er lige kommet hjem fra arbejde og har først set dit spørgsmål nu.

Har du sat en reference til DAO i din VBA-editor i Tools > References? Det er et krav før det fungerer.