درخواست راهنمایی در مورد Crystal Report

سلام

من برنامه ای به زبان vb.net 2008 نوشته ام که در آن، به منظور گزارش گیری از بانک sql ،از برنامه ی crystal report و از ویزارد آن، استفاده کرده و این برنامه در سیستم خودم جواب می دهد....

زمانی که برنامه را به سیستم دیگری انتقال می دهم قسمت گزارش گیری آن به بانک متصل نمی شود، زیرا کانکشن استرینگ آن برای سیستم قبلی تعریف شده و از طرفی در فایل app.config این کانکشن را تغییر داده ام، تمامی مراحل برنامه در سیستم مقصد اجرا می شود به جز گزارش گیری ...

عاجزانه مرا کمک کنید. با سپاس!

این هم کد اتصال به گزارش:
(این گزارش از رویه ذخیره شده در sql گزارش گرفته و دارای پارامترهای ورودی نیز است.)

کد:

---

PrivateSub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
Dim param1Fileds AsNew CrystalDecisions.Shared.ParameterFields
Dim param1Field AsNew CrystalDecisions.Shared.ParameterField
Dim param1Field1 AsNew CrystalDecisions.Shared.ParameterField
Dim param1Field2 AsNew CrystalDecisions.Shared.ParameterField
Dim param1Range AsNew CrystalDecisions.Shared.ParameterDiscreteValue
Dim param1Range1 AsNew CrystalDecisions.Shared.ParameterDiscreteValue
Dim param1Range2 AsNew CrystalDecisions.Shared.ParameterDiscreteValue
param1Field.ParameterFieldName = "date1"' Parameter Name In Crystal Report
param1Field1.ParameterFieldName = "date2"
param1Field2.ParameterFieldName = "insKnd"
param1Range.Value = TextBox1.Text ' value For Parameter Field
param1Range1.Value = TextBox2.Text
param1Range2.Value = TextBox3.Text
param1Field.CurrentValues.Add(param1Range)
param1Field1.CurrentValues.Add(param1Range1)
param1Field2.CurrentValues.Add(param1Range2)
param1Fileds.Add(param1Field) ' To add parameter in parameterslist
param1Fileds.Add(param1Field1)
param1Fileds.Add(param1Field2)
Form15.CrystalReportViewer1.ParameterFieldInfo = param1Fileds 'to pass parameter
Form15.Show()
Form15.CrystalReportViewer1.Refresh()
Form15.CrystalReportViewer1.Visible = True
EndSub


---

کد:

---

Private Sub Form15_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
Dim crs As New CrystalReport1
CrystalReportViewer1.ReportSource = crs
End Sub

---