Hvad sker der?

Kig lige det her:

<%

Set Conn = Server.CreateObject("ADODB.Connection")
Conn.Open("DRIVER={Microsoft Access Driver (*.mdb)}; DBQ=" + Server.MapPath("XXX"))

strDatoSQL = "SELECT DISTINCT dato FROM whistres WHERE slags = 'whist' ORDER BY dato DESC"
set rs = Conn.Execute(strDatoSQL) %>

<table border="0" width="100">
  <tr>
    <td align="center">Hej</td>
  </tr>
</table>

<table border="0" width="400">
  <tr>
    <td align="center"><b>Dato</b></td>
    <td align="center"><b>Torben</b></td>
    <td align="center"><b>Anders</b></td>
    <td align="center"><b>Jesper</b></td>
    <td align="center"><b>Michael</b></td>
  </tr>

<% While Not rs.EOF %>

<tr>
<td width="80" height="15" align="left"><% =rs("dato") %></td>
   
<% strSQL = "SELECT belob FROM whistres WHERE dato = #"& rs("dato") &"# AND navn = 'Torben Kovaltsenko Jørgensen'"
set rs2 = Conn.Execute(strSQL) %>
   
    <td width="80" height="15" align="left"><% =rs2("belob") %></td>

    <% strSQL = "SELECT belob FROM whistres WHERE dato = #"& rs("dato") &"# AND navn = 'Anders Bjerrisgaard Thomsen'"
    set rs2 = Conn.Execute(strSQL) %>
   
    <td width="80" height="15" align="left"><% =rs2("belob") %></td>

    <% strSQL = "SELECT belob FROM whistres WHERE dato = #"& rs("dato") &"# AND navn = 'Jesper Bisgaard Larsen'"
    set rs2 = Conn.Execute(strSQL) %>
   
    <td width="80" height="15" align="left"><% =rs2("belob") %></td>

    <% strSQL = "SELECT belob FROM whistres WHERE dato = #"& rs("dato") &"# AND navn = 'Michael Matzen'"
    set rs2 = Conn.Execute(strSQL) %>
   
    <td width="80" height="15" align="left"><% =rs2("belob") %></td>
  </tr>
   
<% rs.MoveNext
Wend %>

</table>

******************

Hvorfor dør programmet når den kommer til en dato der hedder 01-04-2002......

Den ligger godt nok lageret i DB med et 0 foran 1-tallet. nogen ideér??

Fejlen er:

ADODB.Field error '80020009'

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

/whist/whist.asp, line 0