Private Sub Reportsdaybtt_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Reportsdaybtt.Click
Dim rpt As New reportdays
rpt.RecordSelectionFormula = "{reportsday.EmpFrontName} = '" & TextBox1.Text & "'"
CrystalReportViewer1.ReportSource = rpt
CrystalReportViewer1.Refresh()
End Sub