El codigo es este :
inter = DateInterval.Month
meses = -6
fecha_borrar = (DateAdd(inter, meses, Now))
fecha_borrar = Format(fecha_borrar, "dd/MM/yyyy")
sssql = "select * from salidas where fecha <= " & fecha_borrar & ""
Dim comando5 As New OleDbCommand(sssql, Conexion)
comando5.ExecuteNonQuery()
lectura = comando5.ExecuteReader
i = 0
While lectura.Read
donde inter es un objeto de tipo dateinterval. Tambien lo probe con esta select :
sssql = "select * from salidas where fecha <= '" & fecha_borrar & "'"
Poniendo comillas simples.
Y eso no me funciona no da ningun error pero no lee ninguno aunque haya.
Pero si pongo esto otro funciona perfectamente:
inter = DateInterval.Month
meses = -6
fecha_borrar = (DateAdd(inter, meses, Now))
fecha_borrar = Format(fecha_borrar, "dd/MM/yyyy")
sssql = "select * from salidas "
Dim comando5 As New OleDbCommand(sssql, Conexion)
comando5.ExecuteNonQuery()
lectura = comando5.ExecuteReader
i = 0
While lectura.Read
if lectura.fecha <= fecha_borrar then
'Y si que entra
end if
end while
Muchas gracias por tomarte la molestia