Dim mtxt2 as Date mtxt2 = Date DoCmd.RunSQL ("insert into labels (fld1, fld2, DATE) values (" & mtxt0 & ", '" & mtxt1 & "', #" & CStr(mtxt2) & "#)")