SQL Server การสร้างปุ่ม เลือกวันที่ปัจจุบันมาแสดง เพื่อทำรายงาน VB.NET

 Private Sub btn_Appointment_all_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btn_Appointment_all.Click
        If MessageBox.Show("คุณต้องการพิมพ์บัตรนัดหมายทั้งหมด??", "ยืนยันการทำงาน", MessageBoxButtons.YesNo, MessageBoxIcon.Question) = Windows.Forms.DialogResult.Yes Then
            Dim frmRpt As New rp_Appointment_all
            frmRpt.CrystalReportViewer1.ReportSource = New Cry_Appointment_all
            frmRpt.CrystalReportViewer1.SelectionFormula = "{Appointment.Ap_date}='" & txta_date.Text & "'"
            frmRpt.ShowDialog(Me)
        Else

        End If
    End Sub