Åtgärden stöds inte

Ska lista 5 produkter för att sen klicka på "nästa" för att gå vidare till nästa sida.
Scriptet listar 5 prod. men sen får jag felmeddelandet
ADODB.Recordset fel '800a0cb3'
Åtgärden som programmet begärt stöds inte av leverantören.
/resport/dbboende/test/svarboende.asp, rad 129

Rad 29

set RS=RS.NextRecordSet

Övrig kod (htmlkod bortklippt)

<%
Dim visainfo
Const adOpenForwardOnly = 0
Const adOpenKeyset = 1
Const adOpenDynamic = 2
Const adOpenStatic = 3
Const adLockReadOnly = 1
Const adLockPessimistic = 2
Const adLockOptimistic = 3
Const adLockBatchOptimistic = 4

Set fritid = Server.CreateObject("ADODB.Connection")
fritid.Open "Driver={Microsoft Access Driver (*.mdb)}; DBQ=c:\db\adressbok.mdb"

visainfo = Request.Form("inbox")

SQL = "SELECT * FROM adressbok ORDER BY Kundnamn ASC"

If Request.Form("TypeSearch") = "Kundnamn" Then
SQL = "SELECT * FROM adressbok WHERE Kundnamn = '"& visainfo &"'"
End If

If Request.Form("TypeSearch") = "Ort" Then
SQL = "SELECT * FROM adressbok WHERE Ort = '"& visainfo &"'"
End If

If Request.Form("TypeSearch") = "Kedjanamn" Then
SQL = "SELECT * FROM adressbok WHERE Kedjanamn = '"& visainfo &"'"
End If

Set rs = Server.CreateObject("ADODB.Recordset")
rs.Open SQL, fritid, adOpenKeyset, adLockReadOnly
TotalRows=RS.RecordCount
RS.PageSize = 5
PageSize=RS.PageSize
if Request("Action") = "" Then
FormAction = "svarboende.asp" 
end if
ScrollAction = Request("ScrollAction")
if ScrollAction <> "" Then
PageNo = mid(ScrollAction, 5)
if PageNo<1 Then
PageNo = 1
end if
else
PageNo = 1
end if
RS.AbsolutePage = PageNo
PageNumber=PageNo
TotalPages=RS.PageCount
%>
<%If rs.BOF and rs.EOF Then%>
Det finns inget som matchar din sökning!<%Else%>
<%If Not rs.BOF Then%>
<p><%Response.Write("")%></p>
<form METHOD="GET" ACTION="<%=FormAction%>">
  <input type="hidden" name="sql" value="<%=sql%>"><%Do while not (RS is nothing) %>
Sökresultat
Namn:
Ort:
<%RowCount = rs.PageSize
Do While Not RS.EOF and rowcount>0%>
<A HREF=infoboende.asp?ID=<%=rs("ID")%>><%=rs("Kundnamn")%>
<%=rs("Ort")%>
<%RowCount=RowCount-1
RS.MoveNext
Loop%>
<%
set RS=RS.NextRecordSet
Loop
Conn.Close
set RS=nothing
set Conn=nothing%>
<%if PageNo>1 Then %>
  <p><input TYPE="SUBMIT" NAME="ScrollAction" VALUE="<%="Page " & PageNo-1%>"> <%end if %>
<%if PageNo<TotalPages or (PageNo=1 and totalpages>1) Then %> <input TYPE="SUBMIT" NAME="ScrollAction" VALUE="<%="Page " & PageNo+1%>"> <%end if %> </p>
</form>
<%End If%>
<%End If%>
<%
rs.Close
%>

Hoppas ngn ser vad som ska göras o kan hjälpa mig.

------------------
//Mav