Problem med dato udtræk

Hi

Jeg har høvlet lidt med at lave et database udtræl som vælger de poster som er postet fra dags dato og 7 dage frem.

Jeg kan dog absolut ikke så det til at virke. Her er først lidt kode
----------------------------------------------------
<%@ Language="VBScript"  LCID="1030" %>
<% Option explicit %>
<%
.
.
Set rsPer = Server.CreateObject("ADODB.Recordset")
With rsPer
.Source = "SELECT * FROM events WHERE eventdate >= #" &  dtmLst & "# ORDER BY eventdate"
' .Source = "SELECT * FROM events WHERE eventdate BETWEEN "&dtmNow&" AND "&dtmLst&" ORDER BY eventdate"
'.Source = "SELECT * FROM events WHERE eventdate >= #" &  date()+7 & "# ORDER BY eventdate"
.ActiveConnection = objCon
.CursorLocation = 2 'adUseServer
.CursorType = 1 'adOpenKeySet
.LockType = 3 'adLockBatchOptimistic
.Open
End With
.
.
%>
----------------------------------------------------
Mit problem er at det med dato + 7 ikke virker, det er lige meget hvilken af sql-sætninger jeg bryger,enten får jeg alle poster ud eller også for jeg EOF.

Hvad er der galt ?


Her er ud udkast af min database.
----------------------------------------------------
Tabel: events

Kolonner:
eventdate-> Dato og klokkeslæt

id  eventdate    heading
9  03-12-2004    Fifty: Christina Groth + Maya Albana
10  30-11-2004    Billy Cross band
----------------------------------------------------

Håber der er nogle som kan finde en løsning ?