Set basa = CurrentDb
Set nabor = basa.OpenRecordset("Товары", dbOpenTable)
With nabor
MoveLast ' Устанавливает указатель файла на последнюю запись
Edit ' Вызывает метод редактирования
.Fields!Товар = Товар.Value
.Fields!Цена = Цена.Value
.Fields!Поставщик = Поставщик.Value
.Fields!Дата_поставки = Дата_поставки.Value
Update
Close
End With