[سعود]

اخواني الاعزاء البحث عن سجلات في مدى معين من التواريخ يكون المدى من ادخال المستخدم وليس مخزن 
جرب المثال التالي:
tb table
tn string
dt datetime shortdate

كود :

Public Class Form1
   Dim str As String = "provider=microsoft.ace.oledb.12.0;data source=db.accdb"
   Dim con As New OleDb.OleDbConnection(str)
   Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
       Dim da As New OleDb.OleDbDataAdapter("select * from tb where dt between #" & d1.Value.ToShortDateString & "# and #" & d2.Value.ToShortDateString & "#", con)
       Dim dt As New DataTable
       da.Fill(dt)
       ListBox1.DataSource = dt
       ListBox1.DisplayMember = "tn"
       ListBox1.ValueMember = "tid"
   End Sub
End Class

---

---

d1,d2 كلها DateTimePicker,

---

للمعلومية حسب تجربتي الامر لا ينجح الا اذا كان تاريخ الجهاز ميلادي