, |
SELECT * FROM DB WHERE '" & data3 & "' <= Data AND Data <= '" & data4 & "'
Dim c As New OleDbCommand ' "" c.Connection = conn c.CommandText = "SELECT * FROM DB WHERE '" & data3 & "' <= Data AND Data <= '" & data4 & "'" ' ORDER BY Data,Zveno,Pole,Diametr" ' DB " Dim ds As New DataSet Dim da As New OleDbDataAdapter(c) da.Fill(ds, "DB")
http://www.sql.ru/forum/1158810/pomogite-primitivnyy-zapros-mezhdu-datami-tormozit-bolshuu-rabotu