Hi,
I found the solution to my problem.
Dim crxapp As New CRAXDRT.Application
Dim crxrpt As CRAXDRT.Report
Dim crxParameters As CRAXDRT.ParameterFieldDefinitions
Dim crxParameter As CRAXDRT.ParameterFieldDefinition
Dim Docket_no As String
Private Sub RunReport_Click()
Set crxrpt = crxapp.OpenReport("d:\projects\myvb\2ndpage.rpt"

CRViewer1.ReportSource = crxrpt
Set crxParameterFields = crxrpt.ParameterFields
Set crxParameterField = crxParameterFields.Item(1)
Docket_no = "123456"
crxParameterField.SetCurrentValue Docket_no
CRViewer1.ViewReport
End Sub
Thanks