Secondo me stai commettendo diversi errori anche di spiegazione delle esigenze, e forse ti abbiamo mal suggerito.
In sostanza ora evidenzi l'esigenza di 3 Criteri per il calcolo:
1° TipoS='Vitto'
2° Data Da<--->a
3° Cognome='Tizio'
Ora ne consegue che nel DSUM dovresti avere tutti e 3 i criteri in AND logico per ottenere la somma corretta e coerente.
Fai attenzione tuttavia che COGNOME non è UNIVOCO quindi il rischio è ottenere una somma di tutti i "BIANCHI" e non solo di PAOLO BIANCHI... per capirci...!
Di norma i riferimenti da usare sono le CHIAVI PRIMARIE e non campi Duplicabili.
Detto ciò se il tuo Report ha già l'origine dati coerente, potresti generare un calcolo di SOMMA nell'Evento Format del Corpo.
Questo Evento si genera ad OGNI record, quindi se memorizzi il dato in Somma in modo permanente, alla fine otterrai la Somma dei Totali del Campo interessato senza preoccuparti dei CRITERI, in quanto quelli sono già inseriti a livello di Query.
Ora se inserisci una TextBox chiamandola [txtSomma] in una sezione Riepilogativa del Report, magari un PieDiPagina... la potrai aggiornare in modalità esecutiva ottenendo la somma completa e corretta
Option Compare Database
Option Explicit
Private Sub Corpo_Format(Cancel As Integer, FormatCount As Integer)
Me!txtSomma.Value = Me!txtSomma.Value + Me!CampoDaSommare.Value
End Sub