ASP: Summan av en kolumn

Hur skriver jag för att få ut summan ur en kolumn i ASP?
Jag har en databas (tabellen heter todo) med en kolumn som heter "123". I denna ligger det x-antal tal som jag helt enkelt vill få summan utav. Någon som vill hjälpa mig?

Detta är min databaskoppling:

<%	Set Connect = Server.CreateObject
("ADODB.Connection")
	Connect.Open "driver={Microsoft Access Driver (*.mdb)};dbq=c:\inetpub\wwwroot\test\test.mdb" 

	Set RecSet = Server.CreateObject("ADODB.Recordset") %>

Här är koden jag försökte med, men som inte fungerar:

<%

Visa = "SELECT SUM(123) AS sumID FROM todo"

Set objRS = objCon.Execute(strSQL)

Response.Write("Summan av talen är" & objRS("sumID"))
Set objRS = Nothing

RecSet.Open Visa, Connect, adOpenStatic, adLockOptimistic

%>

Tack på förhand!

Hmm... får inte den till att fungera heller

- - -
F.ö. så behöver (ska) inte sista raden i "mitt förslag" vara med... den RecSet.Open ....

Inget annat förslag?

Får följande fel med Grillcliffs kod:

Feltyp:
Microsoft OLE DB Provider for ODBC Drivers (0x80004005)
[Microsoft][Drivrutin för ODBC Microsoft Access]Allmänt fel Det går inte att öppna registernyckeln 'Temporary (volatile) Jet DSN for process 0x80c Thread 0x6ac DBC 0x18a0014 Jet'.
/test/test2.asp, line 5

Den här raden:

Conn.Open "driver={Microsoft Access Driver (*.mdb)};dbq=c:\inetpub\wwwroot\test\test.mdb"

Fråga mig inte varför, hur eller... vad som helst, men NU funkar Grillclifs förslag.
Har inte ändrat på något sen jag försökte innan... mysko.
Men i varje fall, stort tack Grillcliff och ni andra som hjälpte mig!

Två förslag som fungerar nu:

1.

<%

Set Conn = Server.CreateObject("ADODB.Connection")
Conn.Open "driver={Microsoft Access Driver (*.mdb)};dbq=c:\inetpub\wwwroot\test\test.mdb"
Set RS = Server.CreateObject("ADODB.Recordset")

SQL = "SELECT [123] FROM [todo]"
RS.Open SQL, Conn, adOpenStatic, adLockOptimistic

summa = 0

Do Until RS.EOF = True

summa = summa + RS("123") - 0

RS.MoveNext
Loop

Response.Write("Summan av talen är " & (summa))

RS.Close
Conn.Close

Set RS = Nothing
Set Conn = Nothing

%>

2. (Med användning av system-dsn)

<%

Set objConn = Server.CreateObject ("ADODB.Connection")
objConn.Open "test"
strSQL = "SELECT SUM([123]) AS sumID FROM todo"

Set objRS = objConn.Execute(strSQL)

Response.Write("Summan av talen är " & objRS(0))

objRS.Close
Set objRS = Nothing
objConn.Close
Set objConn = nothing
%>