Parametrarna är felaktiga?

Fattar inte riktigt vad som kan vara fel.

Får detta felmeddelande:

ADODB.Recordset fel '800a0bb9'

Parametrarna är felaktiga, ligger utanför tillåtet intervall eller skapar en inbördes konflikt.

admin_ny_art_akt.asp, line 82

<%If Request.Querystring("action")= "" Then%>
<%Set RecSet = Server.CreateObject("ADODB.Recordset")

Const perSida1 = 20
Sidan = Request.QueryString("sida")
If Sidan = "" then 
    sida = 1 
Else 
    sida = Sidan 
End If 

With RecSet
    .CursorLocation = 3
    .CacheSize = perSida1 
End With

SQL = "SELECT * FROM nyhetartikel ORDER BY datum DESC"
[red]Rad 82 -->>[/red] [b] RecSet.Open SQL, Conn[/b]
If RecSet.EOF Then%>
Här var det tomt..
<%Else%>
<%With RecSet
    .MoveFirst 
    .PageSize = perSida1 
    .AbsolutePage = sida
End With

Sidor = RecSet.PageCount
Count = 0 
Do While Not RecSet.EOF And Count < RecSet.PageSize%>

<%=FormatDateTime(RecSet("Datum"),2)%>l <%=RecSet("typ")%> l <%If Len(RecSet("rubrik")) > 55 Then%>
<%=Left(RecSet("rubrik"),55)%>...<%Else%><%=RecSet("rubrik")%>
<%End If%>
<a href="admin_ny_art_akt.asp?action=change&id=<%=RecSet("id")%>" title="Ändra">Ä</a>&nbsp;<a href="admin_ny_art_akt.asp?action=delete&id=<%=RecSet("id")%>" title="Ta bort" onClick="return confirm('Radera <%=RecSet("rubrik")%> ur databasen?');">R</a>
<%Count = Count + 1
RecSet.MoveNext
Loop

If Sidor > 1 Then%>
                                        <b>SIDA:</b> 
                                        <%If Sidor <> 1 Then
    For Sid = 1 To Sidor
    If (Int(Sid)) = (Int(sida)) Then%>
                                        <font color="#ff0000"><%=Sid%></font>
                                        <%Else%>
                                        <a href="admin_ny_art_akt.asp?sida=<%=Sid%>"><%=Sid%></a> 
                                        <%End If%>
                                        <%Next%>
                                        <%End If
End If%>
                                        <%If Session("mess") <> "" Then%>
                                        <%
       Response.Write Session("mess")
       Session("mess") = ""
    %>
                                        <%End If%>
                                        <%RecSet.Close
Set RecSet = Nothing
End If
End If
If Request.Querystring("action") = "add" Then%>