شما يك متغير تو كريستال ريپورت تعريف مكني و توي design گزارش مي زاري و با اين دستور اون مقدارتو بهش پاس مي كني. ... 


Report.FormulaFields.GetItemByName("txtdate").Text = "'" & Trim(Text1.Text) & "'"