Eliminar por fecha

[Gustavo1973]

Como hago para que me elimine registros con fechas de mas de semana atrás??
Me explico??
Si hoy es 10/06 quiero eliminar las ventas anteriores al 3/6

Dim fecha2 As Date
fecha2 = Now - 7
qbusca = "DELETE FROM Ventas WHERE idClientes = " & idClientes & " and Fecha < # " & fecha2 & "#"
Con.Execute qbusca

Esto es en VB 6 con Access
El formato en la base de datos es Fecha general (dd/mm/yyyy hh:mm:ss)
Este código no funciona!!!!
Muchas gracias

[Kruzado]

prueba con

fecha2=dateadd(d,-7,date)

otra cosa, la sentencia dejala asi

qbusca = "DELETE FROM Ventas WHERE idClientes = " & idClientes & " and Fecha < # " & format(fecha2,"mm/dd/yyyy") & "#"

mm/dd/yyyy es el formato que utiliza acces