passasing date parameters to crystal report using vb

hi all,
how to pass parameters to crystal report 7 from vb6
pls ant sample code
number3CR.Parameter(0).value="value"|||thanku

i wrote a code

crpt.Connect = "hrstdb"
crpt.ReportFileName = App.Path & "\report3.rpt"
crpt.Formulas(0) = "emp='" & CStr(Trim(Text1.Text)) & "'"

'crpt.Parameter(0).Value = "emp=" & Text1.Text & ";TRUE"

but for parameter it shows the window of parameter and for formula field it shows
sometime and somtimes it does not show

can u detail how to send it again with a sample code

thanks
number3|||'crpt.Parameter(0).Value = "emp=" & Text1.Text & ";TRUE"

Insert a parameter in the report and pass the value for VB to the parameter in the report as :

crpt.parameter(0).Value = ' " & Text1.Text & " '