select sum in dao

[Gush]

sql="SElect sum(fieldname) as result from table1"
returnvalue = Data1.Database.Execute(sql)

Do you know that "returnvalue" should be a recordset object?
so what you should do is:

Set returnvalue = Data1.Database.Execute(sql)
Debug.Print "The sum is: "; returnvalue("result")