مساعدة فى تعديل كود البحث بين تاريخين

PHP كود :
Imports System

Imports System.Globalization

Imports System.Threading

Imports System.Data

Imports System.Data.OleDb



Public Class Form_نجارة



    Dim Ole As New OleDbConnection("Provider=Microsoft.Jet.OLEDB.4.0;Data Source=|DataDirectory|\Smaller program.mdb")

    Dim da As New OleDbDataAdapter

    Dim dt As New DataTable

    Private Property DataRow As OleDbDataAdapter

  Private Sub Button5_Click(sender As Object, e As EventArgs) Handles Button5.Click

        Dim query As IEnumerable(Of StatusDataSet.Status_نجارةRow) =

StatusDataSet.Status_نجارة.

 Where(Function(x As StatusDataSet.Status_نجارةRow) x.Date1 >= DateTimePicker1.Value.Date And x.Date1 <= DateTimePicker2.Value.Date)


        If query.Count > 0 Then

            MsgBox("سوف يتم عرض البيانات", MsgBoxStyle.DefaultButton1, "ogy soft")

            Me.DataGridView1.DataSource = query.CopyToDataTable
 
        Else

            MsgBox("لا يوجد بيانات لهذا البحث", MsgBoxStyle.DefaultButton1, "ogy soft")

        End If

        If query.Count > 0 Then

            Dim report As New CrystalReport_نجارة

            report.SetDataSource(query.CopyToDataTable)

            Form1.CrystalReportViewer1.ReportSource = report

            Form1.ShowDialog()

        End If

        Label2.Text = DataGridView1.RowCount - 1