水晶报表数据源的问题

请问在一个窗口中有一个水晶报表和一些文本框，我根据文本框输入的内容能对水晶报表的数据源做变换吗？比如第一次输出大于100的数据，第二次输出小于100的数据，我对报表的数据源做改变，报没有这个报表。不知道什么原因

If Not cxset.EOF Then '药品库中有数据
   
   If Text1.Text > 100 Then
         
       Reportrk.Database.SetDataSource cxset
       Screen.MousePointer = vbHourglass
      CRViewer91.ReportSource = Reportrk
      CRViewer91.ViewReport
      Screen.MousePointer = vbDefault
    end if     
 End If


Else
    MsgBox " 数据库中没有数据，不能进行统计！", 0, "提示信息"
End If
--------------------编程问答-------------------- 你这个没有变数据源，变的是数据。

理论上应该是这一个样子的

If Not cxset.EOF Then '药品库中有数据 
  
  If Text1.Text > 100 Then 
      cxset.filter="某字段>100"
  dim rst as new adodb.recordset
把cxset过滤后的数据给rst
然后把rst传给报表
      Reportrk.Database.SetDataSource rst
      Screen.MousePointer = vbHourglass 
      CRViewer91.ReportSource = Reportrk 
      CRViewer91.ViewReport 
      Screen.MousePointer = vbDefault 
    end if    
End If 


Else 
    MsgBox " 数据库中没有数据，不能进行统计！", 0, "提示信息" 
End If 
--------------------编程问答-------------------- pls refer babyt's view --------------------编程问答-------------------- 劳驾，请问怎样把cxset过滤后的数据给rst ？？？？嘿嘿，不好意思 --------------------编程问答-------------------- 学习

补充：VB ,  数据库(包含打印，安装，报表)