if you want to just do it when you program starts, how about

VB Code:
  1. Dim d As Date

  2. d = DateAdd("d", 2, Date)

then run your query against > d

rgds pete