من از این کد استفاده میکنم، ریپورت ها را داخل خود ویژیوال استفاده میکنم
کریستال ریپورت 13
Dim oda As New SqlClient.SqlDataAdapter(strsqls, strconnection)
Dim adataset As New DataSet
oda.Fill(adataset, "Tbl_GharardadElam")
Dim rpt As New NameAtashBedoneSarbarg
rpt.Load("NameAtashBedoneSarbarg")
rpt.SetDataSource(adataset.Tables("Tbl_GharardadEl am"))
''''''''''''''

Dim modir As CrystalDecisions.CrystalReports.Engine.TextObject = CType(rpt.ReportDefinition.Sections(3).ReportObjec ts("txtmodir"), TextObject)
modir.Text = FrmMain.txtShModir.Text




FrmRep.CrystalReportViewer1.ReportSource = rpt
FrmRep.CrystalReportViewer1.Refresh()
FrmRep.ShowDialog()


نقل قول نوشته شده توسط پرستو پارسایی مشاهده تاپیک 
Imports CrystalDecisions.CrystalReports.Engine



' ...





Dim report As New ReportDocument()

report.Load("Path\To\Your\Report.rpt") ' مسیر فایل گزارش خود را در این قسمت قرار دهید





Dim imagePath As String = "Path\To\Your\Image.jpg" ' مسیر فایل عکس خود را در این قسمت قرار دهید

report.SetParameterValue("ImageParameter", imagePath) ' ImageParameter را با نام پارامتر عکس خود جایگزین کنید





' نمایش گزارش

CrystalReportViewer1.ReportSource = report

CrystalReportViewer1.Refresh()