以下这段代码加了Report.DiscardSavedData就报错,不加这句就是在CRYSTalreport中的,没更新数据,请问怎么回事
Dim cnn As New ADODB.Connection
Dim rs As New ADODB.Recordset
Dim Report     As New CRAXDdRT.Report
Dim Cryapp     As New CRAXDRT.Application
Dim str As String
On Error Resume Next

 Set Report = Cryapp.OpenReport(App.Path + "\rptsalary1.rpt")
 cnn.ConnectionString = "Provider=SQLOLEDB.1;Persist Security Info=False;User ID=sa;Initial Catalog=AIS20070910122938;Data Source=WAPSERVER"
 cnn.Open
 rs.CursorLocation = adUseClient
 str = "select * from dsalaryrpt where fworkdate>='" & Trim(DTPicker1.Value) & "'and fworkdate<='" & Trim(DTPicker2.Value) & "'"
 rs.Open str, cnn, adOpenKeyset, adLockReadOnly
 Report.Database.SetDataSource rs
 Report.DiscardSavedData
 Screen.MousePointer = vbHourglass
 rptstocktzl.CRViewer91.ReportSource = Report
 Screen.MousePointer = vbDefault
 rptstocktzl.Show
 rptstocktzl.WindowState = 2
 Debug.Print rs.RecordCount
 rs.Close
 cnn.Close