请问：如何将sql的sum求和结果赋值给一个变量，并显示在vb文本框中
如:select sum(jresult2)
from jiesuan2
where gno='2006041800001';

表1为 gno jresult
2006041800001 12
2006041800001 6.5
2006041800001 23.8

表2为 gno jresult2
2006041800001 42.3

Dim sgnA As Single

sgnA = "select sum(jresult) From jiesuan Where gno = '" & Text1 & "'"
Text1.text为2006041800001
为何不行？ 请多指教，谢谢！！

group by

group by 不是进行分组吗?
请问与将结果赋值给变量有什么关系？

sgnA = "select sum(jresult) as first From jiesuan Where gno = '" & Text1 & "'"
dim cmd as new sqlcommand(sgnA,con)

dim rd as sqldatatreader
rd=cmd.executereader
while rd.read
me.text=rd.item(0)
end while