Voici une solution à ta question :
Dim cnx
Set cnx = Server.CreateObject("ADODB.Connection")
Dim rs
Set rs = Server.CreateObject("ADODB.Recordset")
cnx.Open "<chaine de connexion BD>"
rs.Open "select sum(prix) as total from table1", cnx, 0, 1
MsgBox(rs.Fields("total"))
rs.Close
cnx.Close
Gilles