Вот код, который вы можете использовать:
Файл отчета: crystalreport1
.
Создайте командную кнопку в форме, к которой прикреплен отчет Crystal.Дважды щелкните и напишите следующее:
Imports CrystqlDecisions.CrystalReports.Engine
Public class Form1
Private sub Button1_click(ByVal sender As System.object, ByVal e As Sysyem.EventArgs) Handles Button1.click
Dim CrystRpt as New ReportDocument
CristRpt.Load('crystal report path\Crystalreport1')
CystalReportViewer1.ReportSource=CristRpt
CrystalReportViewer1.Refresh()
End sub
end class