Får ont i huvudet!

Jag undrar om någon kan hjälpa mig med detta problem.
Jag får ett konstigt fel när jag tar bort en eller flera poster ur tabellen:
ADODB.Recordset (0x800A0BCD)
Antingen är BOF eller EOF satt till True, eller så har aktuell post raderats.
Den begärda åtgärden kräver en aktuell post.

Kommer inte på vad som är fel, har även testat att kopiera tabellen och lagt in ny data i den och får samma problem.
Har även testat att köra med ett On_Off fält men inte ville det funka heller.

<%
If visa = "alla" Or visa = "" Then
Set RecSet = Server.CreateObject("ADODB.Recordset")
SQL = "SELECT ID, PKat_Namn, Bild, PKort_Beskr, On_Off FROM Kategori WHERE KatNav=1 ORDER BY PKat_Namn"
Set RecSet=Connect.Execute(SQL)
%>

<table width="536" border="0" cellspacing="0" cellpadding="0">
<% Numcols = 2 %>
<% If Not RecSet.EOF Then %>
<% Do Until RecSet.EOF %>
<tr valign="top">
<% For i=1 To Numcols %>
<td>
<% If RecSet.EOF Then %>
&nbsp;
<% Else %>
<font face="Verdana, Arial, Helvetica, sans-serif" size="4" color="#333333"><b><% =RecSet("PKat_Namn") %></b></font><br>
<font face="Verdana, Arial, Helvetica, sans-serif" size="1" color="#666666"><% =rad(RecSet("PKort_Beskr") ) %></font><br>
<a href="<% Request.ServerVariables("SCRIPT_NAME") %>?visa=detalj&CID=<% =RecSet("ID") %>&pnamn=<% =Server.URLEncode(RecSet("PKat_Namn") ) %>"><img src="prodbilder/<% =RecSet("Bild") %>_2.jpg" border="0">
<font face="Verdana, Arial, Helvetica, sans-serif" size="1" color="#CC3333">mer info </font><img src="bilder/pil.gif" width="12" height="7" border="0"></a><br>
<% End If %>
<% RecSet.MoveNext %>
</td>
<% Next %>
</tr>
<tr>
<td height="10" colspan="2"><img src="bilder/dott_534.gif" width="534" height="3"><br></td>
</tr>
<% Loop %>
</table>
<% End If %>
<% RecSet.Close %>
<% End If %>

Tabell = Kategori
Fält:
ID = Räknare (Primärnyckel)
KatNav = Tal
KatRel = Tal
PKat_Namn = Text
PKort_Beskr = Text
PLang_Beskr = Text
PCase_Bild = Text
On_Off = Ja/Nej
Bild = Text