[smalw]

كود :

dim cmd as new oledbCommand("Select columntext From tablename Where columndate Between @date1 And @date2",con)
cmd.parameters.addwithvalue("@date1",datetimepicker1.value.date)
cmd.parameters.addwithvalue("@date2",datetimepicker2.value.date)
con.open
dim s=cmd.executescalar
con.close

if s isnot nothing then
msgbox s
end if

لكن طلبك بحث عادي مش بحث متقدم