подскажите, пожалуйста, в чем здесь проблема.
дата никак не хочет меняться

Dim StartData As Date

StartData = Forms![f_make_shiping_period]![StartData].Value

For x = 0 To 5
DoCmd.RunSQL "UPDATE t_order SET t_order.date_loading = #" & Format(StartData + x, """mm/d/yyyy""") & "# WHERE (((t_order.shipment_id)=1996));", -1
Next x

http://www.sql.ru/forum/1161934/ne-rabotaet-zapros-na-obnovlenie-daty