Dovresti fare il tutto anche con un ciclo solo...

Mentre stampi i risultati a video ti tieni due variabili che incrementi ogni volta, ad esempio:
codice:
dim TotImporto
dim TotRecord

' azzero le variabili
TotImporto = 0
TotRighe = 0
while (not rs.Eof)
  ' stampa della riga corrente
  ...

  ' aumento l'importo
  TotImporto = TotImporto + rs("Importo")
 
  ' aumento il contatore righe
  TotRecord = TotRecord + 1

  ' prossimo record
  rs.movenext()
wend
Ciao.