怎样向水晶报表8.5动态加载数据并且调用它？

小弟初学水晶报表8.5，我新建了一个标准EXE工程，向form1添加了一个
CRviewer1控件，一个text，一个Command1。添加了一个crystalreport8.5
设计器。我用DAO来连接数据库，然后再在设计器里面把数据库haidy.mdb的
表“收入”进行连接和设计。
form1的代码如下：
通用
Dim Report As New CrystalReport1
——————————————————————————————————————————
Private Sub Command1_Click()
Dim rs As ADODB.Recordset
Dim sql As String
sql = "select * from 收入 where 名称='" & Trim(Text1.Text) & "' order by 月,日"
Set rs = jiao(sql)
If rs.EOF = True Then
MsgBox "没有符合条件的记录。", 0 + 0, "提示"
Text1.SetFocus
Exit Sub
Else
Screen.MousePointer = vbHourglass
Report.Database.SetDataSource rs
CRViewer1.ReportSource = Report
CRViewer1.ViewReport
Screen.MousePointer = vbDefault
Exit Sub
rs.Close
End IfEnd Sub
这样做的话第一次可以把条件值显示在报表里面，但是如果我要查找第二次的时候
报表又不会刷新，依然是显示第一次查找的结果。
我有两个问题
1.我想解决这个刷新的问题。
2.我想直接用代码进行连接并且设计水晶报表8.5，能够动态地加载数据库里面的内容
希望各位高手指点一下。