Hjælp til banner system

Hej.

Jeg har lavet denne kode:

<%
Set banner = Server.CreateObject("ADODB.Connection")
DSN = "DRIVER={Microsoft Access Driver (*.mdb)}; "
DSN = DSN & "DBQ=" & Server.MapPath ("db.mdb")
banner.Open DSN

arrDay = Array("Søndag", "Mandag", "Tirsdag", "Onsdag", "Torsdag", "Fredag", "Lørdag")

dato = date()
dag = arrDay(WeekDay(dato)-1)

datoStr = date()

response.write dag &"<br>"& datoStr &"<br>"& time() &"<br>"

'Her finder den dem som er valgt til at blive vist i dag
Set rs = Server.CreateObject("ADODB.RecordSet")
strSQL = "SELECT * from banner where dage LIKE '%," & dag &",%' and startdato <= #" & datoStr & "# and slutdato >= #" & datoStr & "# and starttid <= #" & time() & "# and sluttid >= #" & time() & "#"
rs.Open strSQL, banner, 1, 3
'set rs = Banner.Execute("SELECT * from banner where dage LIKE '%," & dag &",%' and startdato <= #" & datoStr & "# and slutdato >= #" & datoStr & "# and starttid <= #" & time() & "# and sluttid >= #" & time() & "#")

if rs.eof then

    randomize
    linie = int(rs.RecordCount * rnd)

    rs.MoveFirst
    rs.Move(linie)

    Response.Write rs("banner")

else

    Response.Write ("Desværre, ingen banner")

end if%>

Men jeg får denne fejl:

ADODB.Recordset fejl '800a0bcd'

Either BOF or EOF is True, or the current record has been deleted. Requested operation requires a current record.

/bannersystem/banner.asp, linje 27

Linie 27: rs.MoveFirst

Er der nogen som kan hjælpe


/Peppino