مشكلة فى استرجاع البيانات

السلام عليكــم ورحمـة الله وبركاتــة

لدى جدول حقوله كالتالى pcserial - problemdesc - solved - datein - dateout

و الفورم لدى كالتالى

Fromdate : textbox1

To date : textbox2

ووضعت فى كود ال button الكود التالى لأقوم باسترجاع البيانات فى فترة من تاريخ الى تاريخ و ليكن من

 Dim fromdate As Date
		fromdate = CDate(TextBox1.Text)
		Label3.Text = fromdate
		Dim todate As Date
		todate = CDate(TextBox2.Text)
		Dim con As New OleDbConnection
		con.ConnectionString = "Provider=Microsoft.Jet.OleDB.4.0;data source =" & Server.MapPath("pctech.mdb")
		Dim cmdselect As New OleDbCommand
		cmdselect.Connection = con
		cmdselect.CommandType = CommandType.Text
		cmdselect.CommandText = "select * from problems where datein > #" & fromdate & "# and datein <= #" & todate & " #"
		If ConnectionState.Closed Then
			con.Open()
		End If
		Dim ad As New OleDbDataAdapter
		ad.SelectCommand = cmdselect
		Dim ds As New DataSet
		ad.Fill(ds)
		grd1.DataSource = ds
		grd1.DataBind()

عندما ادخل التاريخ فى التكست بوكس 1 كالتالى (يوم / شهر / سنة ) و كذلك فى التكست بوكس 2 يقوم بعرض جميع السجلات و لكن عندما اضع التاريخ كالتالى التكست بوكس 1 (شهر/يوم/سنة) و التكست بوكس 2 (يوم / شهر / سنة ) يسترجع فقط السجلات بين التاريخين بصورة صحيحة

اريد الحل فى كيفية استرجاع بصورة صحيحة عندما اقوم بادخال التاريخ فى كلا من التكست بوكس بشكل واحد و هو (يوم / شهر / سنة)

شكرا