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 рТН.Текущая>рС.Средняя;

SELECT T.*, Запрос2.AvgAvg AS СредняяПериодичность, DateDiff("d",Дата,Date()) AS ПрошлоДней
FROM Таблица1 AS T INNER JOIN Запрос2 ON T.Событие = Запрос2.Событие
WHERE T.Дата = (SELECT TOP 1 Дата FROM Таблица1 WHERE Событие=T.Событие ORDER BY Дата DESC);

SELECT T.*, рС.Средняя AS СредняяПериодичность, DateDiff("d",Дата,Date()) AS ПрошлоДней
FROM Таблица1 AS T INNER JOIN рС ON T.Событие = рС.Событие
WHERE T.Дата = (SELECT TOP 1 Дата FROM Таблица1 WHERE Событие=T.Событие AND DateDiff("d",Дата,Date())>рС.Средняя ORDER BY Дата DESC);

SELECT T.*, Запрос32.AvgAvg AS СредняяПериодичность, DateDiff("d",Дата,Date()) AS ПрошлоДней
FROM Таблица1 AS T INNER JOIN Запрос32 ON T.Событие = Запрос32.Событие
WHERE T.Дата = (SELECT TOP 1 Дата FROM Таблица1 WHERE Событие=T.Событие ORDER BY Дата DESC)
AND DateDiff("d",Дата,Date())>Запрос32.AvgAvg;

SELECT Событие, Max(Дата) AS ПоследняяДата,  ' последняя дата для события
       (Max(Дата)-Min(Дата))/(Count(*)-1) AS СредняяПериодичность, ' разницу первой и последней даты делим на количество дат
       Date()-ПоследняяДата AS ПрошлоДней ' прошло дней с последней
FROM Таблица1
WHERE (SELECT Sum(1) FROM Таблица1 As T ' сумма чего-то?
       WHERE T.Событие=Таблица1.Событие And T.Дата>=Таблица1.Дата)<=N+1 условие для этой суммы?
GROUP BY Событие 
HAVING Count(*)>1 And Date()-Max(Дата)>=(Max(Дата)-Min(Дата))/(Count(*)-1) ' выбираем что показывать

Dim N As Long
        N = 2
        SqlCom = New OleDbCommand("SELECT Событие, Max(Дата) AS Последняя, " _
                                  & "(Max(Дата)-Min(Дата))/(Count(*)-1) AS Периодичность, " _
                                  & "Date()-Последняя AS Прошло " _
                                  & "FROM Таблица1 " _
                                  & "WHERE (SELECT Sum(1) FROM Таблица1 As T " _
                                  & "WHERE T.Событие=Таблица1.Событие And T.Дата>=Таблица1.Дата)<=@N+1 " _
                                  & "GROUP BY Событие " _
                                  & "HAVING Count(*)>1 And Date()-Max(Дата)>=(Max(Дата)-Min(Дата))/(Count(*)-1);", Con)
        SqlCom.Parameters.AddWithValue("@N", N)