Имеется таблица Таблица1:

Событие Дата рТ рС Событие1 01.01.2016 "" "" Событие1 05.01.2016 4 4 Событие2 06.01.2016 "" "" Событие1 07.01.2016 2 3

Где рТ - Текущая разница с последней датой для данного события, дней
рС - средняя разница по всем рТ не равным ""(необязательное условие, можно и ноль добавить, правда среднее для второго события сократится вдвое, но на дистанции выравняется) для данного события, дней

При добавлении новой записи, нужно посчитать разницу с последней(наибольшей) датой для данного события - записать полученное значение в рТ и посчитать среднее для всех рТ по добавляемому событию и записать значение в рС.
Подскажите где ошибка?:

SqlCom = New OleDbCommand("INSERT into Таблица1(Событие, Дата, рТ, рС) values('" & TextBox1.Text & "', '" & DateTimePicker1.Value.Date & "', '" & DateDiff("d", Max(Дата), Date()) &"', '" & Avg(рТ) & "' WHERE Событие = '" & TextBox1.Text & "'", Con)

http://www.sql.ru/forum/1204048/vb2010e-access-zapros-k-bd