关于数据库中对某列求和的问题！谢谢！

[beyondleo]

现有数据库ADOquery1：
i s
0 2
1 5.5
2 8
3 9.5
请问想对s这一列进行求和，该怎样实现呢？谢谢！我的代码是这样写的：
var
i:integer;
s:double;
begin
s := 0;
for i := 0 to ADOQuery1.RecordCount do
begin
s := s + ADOQuery1.FieldValues['s'];
end;
i := i+1;
edit1.Text := floattostr(s);
end;
运行没错误，可是结果不对，结果为10，实际结果应该是25啊，请问大家我哪里错了？帮忙改一下！谢了!

[kelei0017]

var
s:double;
begin
s := 0;
adoquery1.First;
with not adoquery1.Eof do
s := s + ADOQuery1.FieldValues['s'];
edit1.Text := floattostr(s);

[kelei0017]

少写了条代码
with not adoquery1.Eof do
begin
s := s + ADOQuery1.FieldValues['s'];
adoquery1.Next;////////////
end;

[HsWong]

var
s:double;
begin
s := 0;
with adoquery1 do
begin
First;
while not EOF do
begin
s := s + FieldValues['s'].AsFloat;
Next;
end;
end;
edit1.Text := floattostr(s);
end;

[beyondleo]

谢谢两位!