Per visualizzare dei totali dovrai fare una lettura di tutti i record della selezione:
1) a video devi visualizzare solamente il totale delle fatture, forse non ti conviene associare un controllo data che è principalmente utilizzato per avere una visualizzazione immediata dei campi del record nel form ma di aprire un recordset.
2) per visualizzare i totali delle fatture nelle label devi fare un loop di lettura:
TotaleM = 0
TotaleI = 0
TotaleE = 0
TotaleF = 0

set RS.recordset = db.openrecordset("select * from fatture where datafattura < #" & format(Date, "yyyy/mm/dd") & "#")
Do until RS.eof
TotaleM = TotaleM + RS("TotaleImponibile")
TotaleI = TotaleI + RS("TotaleIVA")
TotaleE = TotaleE + RS("TotaleEsenti")
TotaleF = TotaleF + RS("TotaleFattura")
RS.MoveNext
loop
Rs.Close
label1.caption = Format(TotaleM, "#####0.00")
label2.caption = Format(TotaleI, "#####0.00")
label3.caption = Format(TotaleE, "#####0.00")
label4.caption = Format(TotaleF, "#####0.00")

Ciao