how to set a parameter?

any idea on how to set a parameter in vb to CRXI... ex. if i'm going to display records with status = 1?

VB Code:

StrQry = " " '?

help here please... urgent

Try this code i hope it will help you, for passing parameters to crystal report x.

Set crxApp = New CRAXDRT.Application
Set crxRpt = crxApp.OpenReport(App.Path & "\Reports\DataReport1.rpt")

crxRpt.RecordSelectionFormula = "{demo04.CODE} = '" & CODE & "' AND
demo38.DUMMY} = TRUE; "
'To View the report
CR.ReportSource = crxRpt
CR.ViewReport