Query che calcola un totale

[spider81man]

Ciao a tutti,
mi servirebbe una query che estra un solo campo da un DB e fa la somma di questo.
Mettiamo che nella colonna A ho i campi:
1
2
3
il totale dovrà essere sei.
Ho provato così:

dim appo
appo=0
	Set Conn = Server.CreateObject("ADODB.Connection")
	Conn.Provider = "Microsoft.jet.OLEDB.4.0"
	Conn.Open Server.MapPath("DB/newsletters.mdb")ù
	sql = "SELECT A FROM prenotazioni"
	Set rs = Server.CreateObject("ADODB.Recordset")
	rs.Open sql, Conn, , , adCmdTable

	While rs.EOF	
          appo = appo +rs(0)
	Wend

	rs.Close()
	Set rs = Nothing
	Conn.Close()
	Set Conn = Nothing

Ma il risultato mi da 0 sapete aiutarmi??