Visual Basic.NET - NECESITO AYUDA

Como hacer que con una determinada fecha extraida dela base datos restarle 5 dias y tirar una advertencia diciendo tu producto vencera tal fecha

osea si hoy es 6/4/2014 la advertencia tendria que haber salido el 1/4/2014
Programacion VB.NET

TALVES ME PUEDAN AYUDAR

Private Sub fecha()

Dim sql As String = "select * from Productos WHERE (DATEDIFF(day, Caducidad , GETDATE()) >= 0 )"
Dim cmd As New SqlCommand(sql, CnxBD)

cmd.CommandType = CommandType.Text


CnxBD.Open()

Dim dr As SqlDataReader
dr = cmd.ExecuteReader

While dr.Read()
Dim hoy As Date = Date.Now.ToShortDateString

Dim final As Date = dr(5)

If final = hoy Then
MessageBox.Show("El Producto: " + dr(1) + " Vence hoy " + dr(5) + "", "Advertencia") '' ESTACONDICION MANDA LA ADVERTENCIA EL PRODIO DIA DE VENCIMIENTO DE UN PRODUCTO''
''LO QUE DESEO ES QUE TAMBIEN MANDE UNA ADVERTENCIA 5 DIAS ANTES''

Else



End If


End While
CnxBD.Close()

Buenas,
No entiendo bien el trabajo de dr ahi pero se me ocurrió que podes extraer la fecha y mandarla a una variable.
Por ejemplo:
Acá tengo la variable A que es una fecha. Muestro el numero del día y luego al valor del día de la fecha le agrego 5.
Espero que te sirva :D
Coméntame
Gabriel

De acuerdo lo probrare y te dire si me funciono , Te agradesco tu ayuda

uusa datediff y dateadd

agrega días o cehca las diferencia de fechas

checa algunas funciones