我刚学vb不久 要做一个学生成绩查询程序
源代码：
private sub command1_click(index as integer)
select case index
case 0
adodc1.recordsource="select * from 成绩表"
case 1
adodc1.recordsource ="select * from 成绩表 where "&"学号"='"& datacombo1.text&"'"
end select
adodc1.refresh
end sub

窗体有2个ado控件 adodc1 adodc2 1个datagrid控件 1datacombo个控件 两个命令按钮以及 一个标签
运行后提示 过程声明与同名事件或过程的描述不匹配
我感觉好像是index 的问题 把 index as integer 删除后能运行但不能实现查询功能
各位高手帮帮忙吧

我是想知道index的值为1  2   3  时的含义  它是怎样在case 语句中 实现检索功能的

谢谢大家帮忙啦 ~~~