Query di Somma

[emi10]

Ciao a tutti ....
Ho un problema con una Query di Somma...
Praticamente il conteggio dei record me l'ho fa correttamente e anche la somma,
ma il primo record, al posto di inserire 1 , mi lascia il campo vuoto.
Dopo di che effettua la somma in modo corretto, ma non conteggia ovviamente il primo.

ho allegato l'immagine cosi vedete bene il risultato sul campo del BD...Grazie

Set rsRisu = Server.CreateObject("Adodb.Recordset")	
	
rsRisu.Open "T_Risultati", conn, 2, 2

		' --- aggiunta di un record ---
				 rsRisu.addnew
				 rsRisu("UtentePosta") = Mail
				 rsRisu("N_Posta") = NumeroMail
				 rsRisu("IDPosta") = IDPosta
				 rsRisu("Somma") = Somma
		         rsRisu.update
			     rsRisu.Close
                 set rsRisu = Nothing
							
sqlConta = "SELECT COUNT (UtentePosta) AS NumeroMail FROM T_Risultati WHERE IDPosta = " & IDPosta	

set rsRisu = conn.execute(sqlConta)

sqlSomma = "SELECT SUM(N_Posta) AS Somma FROM T_Risultati WHERE UtentePosta = '" & Mail & "'"

set rsRisu1 = conn.execute(sqlSomma)

sqlupdateC = "UPDATE T_Risultati SET N_Posta = '" & rsRisu("NumeroMail") & "' , Somma = '" & rsRisu1("Somma") & "' WHERE IDPosta = " & IDPosta

conn.execute(sqlupdateC)

[emi10]

Qui l'allegato