problem on passing value

[knight_jose]

i have a text box and i want the value on my textbox is place on the my crystal, im new to crystal report.....

Private Sub cmdprint_Click()
Dim oApp As CRAXDRT.Application
Dim oReport As CRAXDRT.Report

Set oApp = New CRAXDRT.Application
Set oReport = oApp.OpenReport(App.Path & "\Reports\other_deduction.rpt", 1)
oReport.Database.SetDataSource dataother.DataSource, 3, 1
oReport.ParameterFields.GetItemByName(oReport.Sections(1).ReportObjects(2).Name).AddCurrentValue "'" & Text1.Text & "'"

frmprintview.CRViewer91.ReportSource = oReport

frmprintview.CRViewer91.ViewReport
frmprintview.Show 1, frmother
End Sub

but it will prompt an error of invalid name...

my crystal report version is 9.2

Online on 8pm to 3am.......philippines time...





making a maze on my head.....