ho provato a scrivere come dici tu

tot = rs(0)

ma mi da sempre lo stesso errore

inoltre cancellando tot = rs(0) l'errore cambia e mi dice:


Microsoft OLE DB Provider for ODBC Drivers error '80040e10'

[Microsoft][ODBC Microsoft Access Driver] Too few parameters. Expected 1.

al livello della riga:

Set rs = conn.Execute(sql)