Dim rpt As New CrystalDecisions.CrystalReports.Engine.ReportDocument
Dim directory As String = My.Application.Info.DirectoryPath
rpt.Load("E:\Segment\Segment\Segment\CrystalReport1.rpt")
rpt.SetDataSource(dt)
Me.CrystalReportViewer1.ReportSource = rpt
Me.CrystalReportViewer1.Refresh()
End Sub