VB+Access 数据库格式是: 

语文 数学 英语 物理 化学 历史 生物 政治
93    95   83   78   81   92   71   80
......
一个字段有几十行数据

在Textbox里面输入:语文,然后单击计算按钮Listbox立刻显示该字段的所有数据!

要是在Textbox里面输入多个字段Listbox除了显示数据外,并具还能实现计算功能
比如:Textbox里面输入:语文+数学+历史,那么Listbox应该显示为:93+95+92=280

怎样才能实现此功能,用下面的代码声明变量好像不行,请吧主帮忙,先谢谢了!

Dim 语文,数学,英语,物理,化学,历史,生物,政治

Set 语文 = Adodc1.Recordset(0)
Set 数学 = Adodc1.Recordset(1)
Set 英语 = Adodc1.Recordset(2)
Set 物理 = Adodc1.Recordset(3)
Set 化学 = Adodc1.Recordset(4)
Set 历史 = Adodc1.Recordset(5)
Set 生物 = Adodc1.Recordset(6)
Set 政治 = Adodc1.Recordset(7)