Private Sub Refresh_Button_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Refresh_Button.Click
Dim rpt As New CrystalReport1
CrystalReportViewer1.ReportSource = rpt
CrystalReportViewer1.Zoom(1)
CrystalReportViewer1.Refresh()
End Sub