جستجو در تاریخ مورد نظر + نمایش اطلاعات امروز

سلام
یه برنامه نوشتم
توی قسمت گزارش گیریش یه دیتاگرید باز کردم به شکل کد زیر

Private Sub fillGridPersons()

        Dim cn As New SqlClient.SqlConnection

        cn.ConnectionString = "Data Source=PC5;Initial Catalog=Vot;User Id=vo;Password=92;"

        oadmainLocal = New SqlDataAdapter("select Pay_Id,Pay_Sum,Pay_Date,P_FName,P_LName,P_Tell,Pay  _ByName,Pay_ByRight,Pay_ByTell,Pay_PermitSum,check  er from Persons inner join payment on (Persons.p_id=payment.pay_pid) where Pay_date like N'%" & TextBox1.Text.ToString & "%'  ", cn.ConnectionString)

        dtmaindatatable = New DataTable





        Try





            oadmainLocal.Fill(dtmaindatatable)

            bs = New BindingSource

            bs.DataSource = dtmaindatatable

            With GridView

                .DataSource = Nothing

                .DataSource = bs

                'format grid

                GridView.Font = New Font("b mitra", 11, FontStyle.Regular) ' change to Regular

                GridView.RowsDefaultCellStyle.BackColor = Color.LightGoldenrodYellow

                GridView.AlternatingRowsDefaultCellStyle.BackColor = Color.White

                .Columns(0).HeaderText = "ش فیش"

                .Columns(0).Width = 90

                .Columns(0).DefaultCellStyle.BackColor = Color.Azure

                .Columns(1).HeaderText = "مبلغ"

                .Columns(1).Width = 80

                .Columns(1).DefaultCellStyle.Format = "##,0"

                .Columns(2).HeaderText = "تاریخ"

                .Columns(2).Width = 100

                .Columns(3).HeaderText = "نام"

                .Columns(3).Width = 75

                .Columns(4).HeaderText = "نام خانوادگی"

                .Columns(4).Width = 140

                .Columns(5).HeaderText = "تلفن"

                .Columns(5).Width = 100

                .Columns(6).HeaderText = "نام 1"

                .Columns(6).Width = 80

                .Columns(7).HeaderText = "مبلغ 3"

                .Columns(7).Width = 100

                .Columns(7).DefaultCellStyle.Format = "##,0"

                .Columns(8).HeaderText = "تلفن "

                .Columns(8).Width = 75

                .Columns(9).HeaderText = "مبلغ2"

                .Columns(9).Width = 140

                .Columns(9).DefaultCellStyle.Format = "##,0"

                .Columns(10).HeaderText = "چاپ شده"

                .Columns(10).Width = 100





                .SelectionMode = DataGridViewSelectionMode.FullRowSelect

                .Cursor = Cursors.Hand

                'TODO word wrap desc columns





                'currentRowToolStripTextBox.Text = "1"





            End With

        Catch ex As Exception

            MessageBox.Show("query error : " & ex.Message)

        Finally





            cn.Close()

        End Try









    End Sub

یه تکس باکس گذاشتم میخام وقتی یه تاریخ رو توش نوشتم عین همون تاریخ رو برام بیاره
یا اگه شد وقتی نرم افزار اجرا شد فیلد هایی رو نشون بده که pay_date انها امروز باشه بیاره

کمکم کنید لطفا