Hello,
I have used this sql statment
Dim Stxt_qty As String = "Select sId,sQty,sDate,sTime from SStock where (sModel ='" & ScmbModel.Text & "') and (sThing='" & ScmbThing.Text & "') and (sSupplier='" & ScmbSupp.Text & "') and (sDate=#" & StxtDate.Value.ToShortDateString & "#)"
It works fine...