求救,一个关于vb和数据库的问题

使用sql在学生数据库studentd  "成绩表中查询"按学号查询记录

代码如下:private sub cmdfind_click()

adocdc1.recordsource="select*from成绩表where(学号=' "&text1.text&" ')"

adodc1.refresh

endsub

帮我看看这个程序出错的地方在那里 ,我把它那去运行就是运行不起