Dim sql1 As String = "Select FACTURA, FECHA, CANTIDAD, UNIDAD, TOTAL FROM VENTAS WHERE PRODUCTO= '" & id & "' AND (fecha >= (#" & fecha1 & "#) AND fecha <= (#" & fecha2 & "#) "
Dim sql1 As String = "Select FACTURA, FECHA, CANTIDAD, UNIDAD, TOTAL FROM VENTAS WHERE PRODUCTO= '" & id & "' AND FORMAT (FECHA, 'dd/mm/yyyy') BETWEEN '" & fecha1.ToShortDateString & "' AND '" & fecha2.ToShortDateString & "'"