Hi,
It's long time man worked in vb....
I hope you are using MS-Access as backend
code is below
report.DiscardSavedData = True
report.Destination = crptToWindow
report.DataFiles(0) = App.Path & "\Inventory.mdb"
report.ReportFileName = App.Path + "\Reports\rptBalanceSheet.rpt"
report.SelectionFormula = "{tblTrn.SNo}='" & txtPrm.Text & "'"
Regards,
thatraja