现有表一，结构如下：

学号    科目       成绩
001     语文       88
001     数学       98
001     英语       99
002     语文       90
002     数学       88
002     英语       77
003   。。。。。
现有表单1（图示），想实现输入学号，点击查询，在GRID中显示该学号的各科成绩（也就是实现自动滚GRID滚动条显示该条记录）

“查询”代码如下，
THISFORM.Grid1.Recordsourcetype=4
THISFORM.Grid1.Recordsource="SELECT * from 表1 where 学号=thisform.text1.value into cursortt"

点击之后怎么没有反应啊，求大神指点

非常感谢！