Crystal report do not refresh -

Hi, I am new in vb as well as crystal report. I am using crystal report 10 in vb6. When I call crystal report using CRAXDRT in vbfirst time data comes automatically but next time when i click the refresh button then only the new data comes, where ever I am using dicardsavedata as well as refresh. My code are as


Public Sub doopen1(rptname As String)

Dim crxapplication As New CRAXDRT.Application
Dim crxreport As New CRAXDRT.Report


Dim strx As String
CrView.EnablePrintButton = True

strx = App.Path

If Right(strx, 1) <> "\" Then
strx = strx & "\"

End If
strx = strx & "report\" & rptname


Set crxreport = crxapplication.OpenReport(strx)
CrView.EnableRefreshButton = True
CrView.ReportSource = crxreport
CrView.Refresh
CrView.ViewReport

CrView.Zoom 100
Me.Show 1
crxreport.DiscardSavedData
' CrView.RefreshEx (True)
CrView.Refresh

End Sub
where as my crystal report is bounded with an Access table.that is altered no problem with that.

Pls help