小吳 VBQA 程式設計討論

請教各位
我從VB裡,新增一個Crystal Report的報表
然後指向Access資料庫
Dim rptTake As New rptTake
Option Explicit
Private Sub Form_Load()
On Error Resume Next
　　rptTake.DiscardSavedData
　　rptTake.Database.Tables.Item(1).SetLogOnInfo App.Path & "\Main.mdb"
　　Screen.MousePointer = vbHourglass
　　crTake.ReportSource = rptTake
　　crTake.ViewReport
　　Screen.MousePointer = vbDefault
End Sub
我的問題是
我有加上了rptTake.DiscardSavedData,我還是無法看到新的資料,仍然是舊的資料
我指向的資料庫,資料已有更新了
我也試過rptTake.DiscardSavedData = True,
但是它出現錯誤說~~不可指向常數
請問,我哪裡需要做修改呢,謝謝各位