Loop??

Hej..
har ett problem med att loopa igenom en databas!
istället för att posterna läggs på varandra i en kolumn
så vill jag att de tre första posterna läggs i en rad
sedan nästa tre under, osv.osv....
mitt problem nu är att scriptet inte stegar igenom databasen utan bara tar med den första posten och skriver ut den i en rad utan att gå vidare..
vad gör jag för fel??
får ett felmeddelande:
\"ADODB.Recordset fel \'800a0bcd\'
Either BOF or EOF is True, or the current record has been deleted; the operation requested by the application requires a current record.
/records/recordset.asp, rad 27\"
---------------------------------------------------
kod:
<!--#include file=\"adovbs.inc\" -->
<%
Set rs = Server.CreateObject(\"ADODB.RecordSet\")
Set Conn = Server.CreateObject(\"ADODB.Connection\")
Conn.Open \"PROVIDER=MSDASQL;DRIVER={Microsoft Access Driver (*.mdb)};DBQ=\" & Server.MapPath(\"db.mdb\")
strSQL = \"Select * From test\"
rs.Open strSQL, Conn
howmanyfields=rs.fields.count -1
strTest=rs(\"test\") 
%>
<html>

<head>


</head>

<BODY bgcolor=\"#FFFFFF\" marginwidth=\"0\" marginheight=\"0\" topmargin=\"0\" leftmargin=\"0\"
rightmargin=\"0\">

<table width=\"100%\" border=\"0\" cellspacing=\"0\" cellpadding=\"0\" height=\"300\">
  <tr>
<% while not rs.eof %>
    <td><%=strTest%></td>
<% rs.MoveNext %>
    <td><%=strTest%></td>
<% rs.MoveNext %>
<% wend %>

  </tr>
</table>
<%
rs.Close
    Set rs = Nothing
Conn.Close
set Conn = Nothing
%>
</body>
</html>