Ændre standardværdier

Jeg mener at følgende har virket i min dB:
Private Sub Kommandoknap114_Click()
Dim db As DAO.Database
Set db = CurrentDb
Dim tbl As TableDef
Set tbl = db.Tabledefs("Varetabel")

tbl.Fields("Leveringsdato1").DefaultValue = Me.Leveringsdato1
tbl.Fields("Menu1").DefaultValue = Me.Menu1
tbl.Fields("Antal1").DefaultValue = Me.Antal1
tbl.Fields("Kode1").DefaultValue = Me.Kode1
tbl.Fields("Pris1").DefaultValue = Me.Pris1

MsgBox "Standardværdierne i Varetabellen er nu blevet ændret!"
End Sub

Jeg får nu denne fejlmeddelelse:

Der er gjort ugyldig brug af ".","!" eller "()". i et valideringsudtryk på tabelniveau.
Jeg kan ikke lige gennemskue fejlen.