Imports CrystalDecisions.CrystalReports.Engine

Public Class Form1

    Private Sub Button1_Click(ByVal sender As System.Object, 

	ByVal e As System.EventArgs) Handles Button1.Click

        Dim cryRpt As New ReportDocument

        cryRpt.Load("PUT CRYSTAL REPORT PATH HERE\CrystalReport1.rpt")

        CrystalReportViewer1.ReportSource = cryRpt

        CrystalReportViewer1.Refresh()

    End Sub

End Class