Sql - intet output

Hej

Er der en der har en god ide til, hvorfor der intet udskrives ved nedenstående kode - trods der burdte udskrives en masse datoer. Det virkede i det gamle år, men åbenbart ikke i det nye år. Og det fatter man jo ik' ;)

<%
    Set myConn=Server.CreateObject("ADODB.Connection")
    myConn.Open ("PROVIDER=Microsoft.Jet.OLEDB.4.0;DATA SOURCE="+server.Mappath("/db/selvet.mdb"))
    strSQL = "Select distinct datopublish from search where (datopublish between #" & Date() + 1 & "# and #" & Date() + 364 & "#) order by datopublish"
    set rs = myConn.execute(strSQL)
   
    do while not rs.EOF
        if isDate(rs("datopublish")) then
            myDates = myDates & rs("datopublish") & ", "
        End If
    rs.MoveNext
    Loop
   
    if not myDates = "" then
        myDates = left(myDates,len(myDates)-2)
    end if
   
    response.write("***" & myDates & "***")

    myDateArr = Split(myDates,",")
%>