刷新无反应 ！！！ 救命！！！

Question

控件 在 界面中已经加入当点击下拉列表框中的 年级  数据表刷新
Private Sub Combo1_Change()
   datPrimaryRS.RecordSource = "select *  from 学期表 where 年级='" & Trim(Combo1.Text) & "'"
   datPrimaryRS.Refresh     
   DataGrid1.Refresh
   
   End Sub结果 没有反应！！！！！！

Answer 1

datPrimaryRS.Refresh     
set DataGrid1.DataSource=datPrimaryRS

Answer 2

datPrimaryRS.Refresh     
set DataGrid1.DataSource=datPrimaryRS
 DataGrid1.Refresh

Answer 3

如果是SQL　SERVER　可以直接这样
dim Con as ADODB.Connection
Con.open '打开数据库
dim Res as new ADODB.Recordset
Res.open  "select *  from 学期表 where 年级='" & Trim(Combo1.Text) & "'",Con,adOpenStatic, adLockReadOnly, adCmdText
set DataGrid1.DataSource=Res  
    
如果是ACCESS就要借用ADODC控件才能这样。
ADDOC1.RecordSource = "select *  from 学期表 where 年级='" & Trim(Combo1.Text) & "'"
Set DataGrid1.DataSource = Adodc1
ADDOC1.Refresh

Answer 4

应该是这样的吧
datPrimaryRS.Refresh     
set DataGrid1.DataSource=datPrimaryRS
 DataGrid1.Refresh