You need to rename your "date" column especially if you want to use VB Date functions.
You can try this
sql1 = "DELETE FROM POST WHERE DateDiff("d",Date,Renamed Date Column) > 7"
There's a number of ways to get the same results.
http://www.w3schools.com/vbscript/vbscript_ref_functions.asp