在 GRID 表中如何实现查询？

现有表一，结构如下：
学号    科目       成绩
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"
点击之后怎么没有反应啊，大家指点一下吧，谢谢了！