我写了一段代码,是从文本框中输入一个单证号,然后在数据库中查询这个号.返回的结果在datagrid控件里体现.可是写完之后点击查询是不返回结果.必须的重新填写单证号再重新查询一次才出结果.请问是什么原因?

运行vb6.0,新建一个标准exe工程..
在窗体上添加一个adodc控件.一个datagrid控件.一个textbox控件.一个command控件.
设置datagrid控件的datasource属性为adodc1 ,右击adodc1控件,在属性里设置连接数据库,和数据源..
然后编写command控件的代码..
Private Sub Command1_Click()
Adodc1.RecordSource = "SELECT * FROM 成绩单 WHERE 学号 =" & Val(Text1.Text) & ""
Adodc1.Refresh
End Sub