Ahh, thanks for the tip on searches,
i tried the dsum method,
i set up a functon, used 2 arguements, but had trouble making it work, code:
Function sumfunction1(vardate As Date, var1 As Long) As Long
DSum("field2", "table", "field1 > " & var1 & " And date > #" & vardate & "#")
End function...