'インポートクラス Imports CrystalDecisions.CrystalReports.Engine
'ReportDocument(.RPT)のディレクトリパス設定 Dim reportPath As String = "ファイルパス" & "ファイル名.rpt" 'ReportDocumentのオブジェクト生成 Dim RD As New ReportDocument 'ReportDocument(.RPT)を読込み RD.Load(reportPath) 'CrystalReportViewerへReportDocumentを渡す CrystalReportViewer.ReportSource = RD