VB 数据库下 一个字段下的所有数字加起来。

dim aaa as string
打开数据库代码省略
do while not rs.eof
aaa=aaa & rs("序号")
rs.movenext
loop

您好，我来帮你搞定：
1 新建工程；在窗体上加入一个按钮command1，一个文本框TEXT1
2 添加引用；工程-引用-Microsoft ActiveX Data Objects 2.7 Library；
3 将工程保存在d:\MY_project文件夹
4 假设数据库是access数据库，哈哈。
代码如下：
private sub Command1_Click()
on error goto errmsg '遇到错误，转到errmsg
dim MyConStr as string '连数据库字符串
dim sqlstr as string '查询语句
dim a as string '定义变量a v
dim v as string
text1.Clear '先清除框里的内容
dim conn2 as New ADODB.connection ’连接对象
MyConStr="Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & App.Path & "\db.mdb" ’语句1
conn2.open MyConStr '建立数据库连接
dim rs as New ADODB.Recordset ’创建数据集对象
sqlstr="select 序号 from t1 " '语句

rs.open sqlstr,conn2,1,1 '读取数据到记录集
’循环取值到ListBox1
Do while Not rs.Eof
a = RTrim(LTrim(rs("xm