[اسامه الهرماوي]

السلام عليكم...
يمكنك استخدام هذا الكود للبحث بين تاريخين عن سجل معين او البحث بين تاريخين فقط.

كود :

Dim da As OleDbDataAdapter
       Dim dt As New DataTable

       If con.State = ConnectionState.Closed Then
           con.Open()
       End If
       Dim Query As String = "Select * From الجدول Where 1=1"

       If date1.Text <> "" Then
           Query = Query & " AND التاريخ >= #" & date1.Text & "#"
       End If

       If date2.Text <> "" Then
           Query = Query & " AND التاريخ <= #" & date2.Text & "#"
       End If

       If TextBox1.Text <> "" Then
           Query = Query & " AND الاسم = '" & TextBox1.Text & "'"
       End If


       Dim cmd As New OleDbCommand(Query, con)
       da = New OleDbDataAdapter(cmd)
       dt.Clear()
       da.Fill(dt)
       Me.DataGridView1.DataSource = dt