problme med sql dags dato +7 dage

Hi

Jeg har et script som gerne skulle udskrive poster, ud fra et dato-felt i min database. med dags dato + 7.

Det fungere dog ikke. Den melde db eof, selv om det er datoer i db'en inden for det ønskede interval. ?

Nogle som umildbart kan se fejlen !

Min kode
--------------------
dato = date
dato = DateAdd("d",+6,dato)
dato = Day(dato) & "-" & Month(dato) & "-" & Year(dato)

Set rsPer = Server.CreateObject("ADODB.Recordset")
With rsPer
.Source = "SELECT * FROM events WHERE eventdate <= "&dato&" ORDER Y eventdate"
.ActiveConnection = objCon
.CursorLocation = 2 'adUseServer
.CursorType = 1 'adOpenKeySet
.LockType = 3 'adLockBatchOptimistic
.Open
End With

-----------------

Og et afsnit af min db.
------------------
7    26-11-2004    Billy Cross band           
8    27-11-2004    Fifty: Christina Groth + Maya Albana
------------------


Jeg benytter dansk datoformat:
<%@ Language="VBScript"  LCID="1030" %>

Og feltet "eventdate" i min database er "kort dato format" !