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

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

كود :

   Sub ser()

       If con.State = ConnectionState.Closed Then
           con.Open()
       End If
       Dim Query As String = "Select * From customer 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 SqlCommand(Query, con)
       da = New SqlDataAdapter(cmd)
       dt.Clear()
       da.Fill(dt)
       Me.datagridview1.DataSource = dt
   End Sub