Im using CR 10 and VB 6.0
problem: cant get report of ticket no 3. I get by default 1st and hav to navigate from CRviewer.


My code

Private Sub Form_Load()
Dim Appl As New CRAXDRT.Application
Dim Report As New CRAXDRT.Report
Set Report = Appl.OpenReport("d:\BusTkt.rpt")

CRViewer1.ReportSource = Report
CRViewer1.SearchByFormula "{Bus_Ticket.Ticket_Number} = '3'"
CRViewer1.ViewReport
End Sub