I think this will require VBA code using recordset, arrays, and looping structures. Something like:
Code:
Option Compare Database
Option Explicit
Option Base 1
Sub GetSum()
Dim rs As ADODB.Recordset
Set rs = New ADODB.Recordset
Dim dblSum As Double, i As Integer
Dim ary4(4), aryD()
rs.Open "SELECT * FROM Table1 ORDER BY ID;", CurrentProject.Connection, adOpenDynamic, adLockPessimistic
For i = 1 To 4
ary4(i) = rs!CountOfData
rs.MoveNext
Next
ReDim aryD(1)
While Not rs.EOF
aryD(UBound(aryD)) = ary4(1) + ary4(2) + ary4(3) + ary4(4)
ary4(1) = ary4(2)
ary4(2) = ary4(3)
ary4(3) = ary4(4)
ary4(4) = rs!CountOfData
rs.MoveNext
ReDim Preserve aryD(UBound(aryD) + 1)
Wend
dblSum = aryD(1)
For i = 1 To UBound(aryD)
If aryD(i) > dblSum Then dblSum = aryD(i)
Next
Debug.Print dblSum
End Sub
This should give you some idea of the difficulties involved.