水晶报表如何才能更新问题，请教各位！

[掬水月在手]

我在VB6里引用水晶报表9.1。用以下代码实现报表生成，但有一个问题：我只能在第一次生成报表时得到正确的信息，以后如果再次生成报表的话，都只显示第一次的结果，该如何清空报表的数据，然后再生成报表呢？一下是我的代码：
Private Sub Form_Load()
Dim strSQL As String
Dim i As Long
Dim capp As New CRAXDRT.Application
Dim carp As New CRAXDRT.Report

Dim rs As ADODB.Recordset

Me.Show

Set rs = New ADODB.Recordset

strSQL = "select * from actionrecord where actiontime between '" & StartDate & "' and '" & EndDate & "' and actor='" & strActor & "'"

If rs.State = adStateOpen Then rs.Close
rs.Open strSQL, cn, adOpenStatic, adLockReadOnly

Set carp = Report

For i = 1 To carp.Database.Tables.Count
If carp.Database.Tables.Item(i).Name = "ActionRecord" Then
carp.Database.Tables(i).SetDataSource rs
End If
Next

CRViewer91.ReportSource = carp
CRViewer91.ViewReport
Screen.MousePointer = vbHourglass
Screen.MousePointer = vbDefault

End Sub

[rocllllll]

在你报表的parameter中加一参数IntTest(integer),然后你每次调用报表时,传一参数
每次自动加1即可,因为crystal有cache,他会自动保存数据(菜单file的savedata)