Jag gör så här
dateNextMonday = date + (8 - weekday(date,2))
vecka = dateNextMonday-7
sql = "SELECT * FROM tabell WHERE datum BETWEEN #" & dateNextMonday & "# AND #"& vecka & "# order by Datum"
Set rs = oConn.Execute(sql)
Jag vet inte om det finns någon bättre lösning men det här fungerar