Dim rpt As New ReportDocument()
Dim directory As String = My.Application.Info.DirectoryPath
'rpt.Load(directory & "\myCrystalReport1.rpt")
rpt.Load("C:\DemoCrystalReport3\DemoCrystalReport3\myCrystalReport1.rpt")
rpt.SetParameterValue("CustomerID", Me.txtCustomerID.Text)
Me.CrystalReportViewer1.ReportSource = rpt
Me.CrystalReportViewer1.Refresh()