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

"Select * from Таблица1 where DateDiff(с последнего) > DateDiff(среднее)"

SqlCom = New OleDbCommand("SELECT Таблица1.*(нужно заменить на "Select * from Таблица1" или нет?), DateDiff(""d"", Дата, Date()) AS DD, Q.AvgAvg" _ ' здесь задается переменная Q.AvgAvg и высчитываем текущую разницу(рТ)?
                                  & "FROM Таблица1 INNER JOIN" _ ' Объединение запросов
                                  & ("SELECT PDKey, Avg(DateDiff(""d"", Дата, Date())) AS AvgAvg FROM Таблица1 GROUP BY Событие) AS Q" _ ' Вот здесь начинается то что вызывает главные трудности) Для начала так понимаю Date() надо изменить здесь?(на что? Как обозначить следующую дату?) В этой строке считаем средний datediff для прошедших событий? Для чего PDKey нужен и сортировка? Всему этому присваиваем значение Q?  
                                  & "ON Событие = Q.Событие" _ 
                                  & "WHERE (((DateDiff(""d"", Дата, Date())) > Q.AvgAvg))", Con) ' Сравнивает два запроса и выводит строки подпадающие под условие?

SqlCom = New OleDbCommand("SELECT Таблица1.*, DateDiff(""d"", Дата, Date()) AS DD, Q.AvgAvg" _
                                & "FROM Таблица1 INNER JOIN" _
                                & "SELECT PDKey, Avg(DateDiff(""d"", Дата, Date())) AS AvgAvg FROM Таблица1 GROUP BY Событие) AS Q" _
                                & "ON Таблица1.Событие = Q.Событие" _
                                & "WHERE DateDiff(""d"", Дата, Date()) > Q.AvgAvg", Con)
        Con.Open()
        SqlCom.ExecuteNonQuery()
        DA = New OleDbDataAdapter(SqlCom)
        DA.Fill(DT)
        Grid.DataSource = DT
        Con.Close()

SELECT T.Событие, T.Дата, DateDiff("d",T.Дата,(SELECT TOP 1 Дата FROM Таблица1 WHERE Событие=T.Событие ORDER BY Дата DESC)) AS Текущая
FROM Таблица1 AS T
GROUP BY T.Событие, T.Дата;

SELECT рТН.*, рС.Средняя
FROM рТН INNER JOIN рС ON рТН.Событие=рС.Событие
WHERE рТН.Текущая>рС.Средняя;