Dim hoy As Date = Date.Today.Date
'Crea el comando
cmd = New OleDbCommand
cmd.Connection = con
cmd.CommandText = "SELECT FINICIO_PROMOCION, FFINAL_PROMOCION, ESTATUS " & _
"FROM PRODUCTOS " & _
"WHERE (((FINICIO_PROMOCION)>=#" & hoy.ToString & "#) AND ((FFINAL_PROMOCION)<=#" & hoy.ToString & "#) AND ((ESTATUS)='PROMOCION'))"
|