перепробовал массу вариантов, но при записи вываливается ошибка
Set r = DBwk.OpenRecordset("Заказы", dbOpenTable)
r.Index = "Заказ"
r.Seek "=", zakaz
'r!Мат = m1
r.Update [мат,m1]
r.Update
r.Close

И так r!Мат = m1, и так r![Мат] = m1 и так r.Update [мат,m1]

Почему вываливает ошибка?

Set r = DBwk.OpenRecordset("Заказы", dbOpenTable)
r.Index = "Заказ"
r.Seek "=", zakaz
r.edit
'r!Мат = m1
r.Update [мат,m1]
r.Update
r.Close

ничего не поменялось

Set r = DBwk.OpenRecordset("Заказы", dbOpenTable)
r.Index = "Заказ"
r.Seek "=", zakaz
r.edit
r!Мат = m1
r.Update
r.Close

вот так заработало спасибо!!!!!!!!!!!!