vb查询的结果显示在DataGrid中，刷新查询结果！

DataGrid中只显示整个学生成绩表的数据，在查询后得不到刷新！
Dim chaxun As String
chaxun = Combo1.Text
Adodc1.RecordSource = "select * from 学生成绩表 where 学生成绩表.课程编号='" & chaxun & "'"
Set DataGrid1.DataSource = Adodc1
谢谢大家的帮助，下面是我运行正确的代码！Dim cn As New ADODB.Connection
Dim rs As New ADODB.Recordset
Dim s As String
Dim i As Integer
s = 0
rs.CursorLocation = adUseClient
ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=学生学籍管理信息.mdb;Persist Security Info=False"
cn.Open ConnectionString
If Combo1.Text = "" Then
MsgBox "请填写学号！", vbExclamation, "提示信息"
Exit Sub
End If
rs.Open "select * from 学生成绩表 where 学号 = '" & Combo1.Text & "'", cn, adOpenKeyset, adLockOptimistic
If rs.RecordCount = 0 Then
MsgBox "没有此学号！", vbExclamation, "提示信息"
End If
Set DataGrid1.DataSource = rs
DataGridRows = rs.Re

VB 显示查询结果的问题 vb怎么把sql查询语句中得到的结果显示在label控件中 求VB数据库SQL查询在DATAGRID显示结果的完整代码 VB中,怎么用flexgrid显示查询结果? SQL server2000中，怎么样使得在查询结果中增加一个字段，该字段显示查询结果的行号 查询结果高亮显示的语法 vba如何调用Access的查询,并显示查询结果? vb 中如何记录SQL语句查询的结果 如何在vb中对SQL SERVER进行条件查询并将结果显现在data grid的控件中 php关于在表格内嵌入echo来显示查询结果的问题