Två databastabeller i samma asp fil

Det blir något fel här är koden

<%	Set Connect = Server.CreateObject("ADODB.Connection")
	Connect.Open "driver={Microsoft Access Driver (*.mdb)};dbq=c:\inetpub\wwwroot\videomonitor\adressbok.mdb" 

Set RecSet = Server.CreateObject("ADODB.Recordset")
Set RS = Server.CreateObject("ADODB.Recordset")

strselectmode = request.querystring("nyheter")
select case strselectmode
case "alla"	
Addera = "SELECT * FROM filmnyheter ORDER BY [Datum] DESC"
Addera1 = "SELECT TOP 10 * FROM dvdnyheter ORDER BY [Datum] DESC"
case "start"	
Addera = "SELECT TOP 10 * FROM filmnyheter ORDER BY [Datum] DESC"
Addera1 = "SELECT TOP 10 * FROM dvdnyheter ORDER BY [Datum] DESC"
end select
RecSet.Open Addera, Connect, adOpenStatic, adLockOptimistic
RS.Open Addera1, Connect, adOpenStatic, adLockOptimistic %>

<%Function Radbryt(rfix)

rfix = "<P>" & Replace(rfix, vbCrLf, "<br>") & "</P>"
Radbryt = rfix

End Function%>

<link rel="stylesheet" href="main_css.css">

	

<%	Do Until RecSet.EOF 
	Do Until RS.EOF %>

	
</head>
<table width="95%" border="0" cellspacing="10">
  <tr>
    <td width="50%"> 
      <h2 class="rubrik"> 
        <% =RecSet("rubrik") %>
      </h2>
      <p><font face="Verdana" size="1">(<i> 
        <% =RecSet("datum") %>
        </i> )</font> <font face="Verdana" size="2"> 
        <%If Len(RecSet("texten")) > 200 Then
		Response.write Left(RecSet("texten"), 200) & "..."%>
        <a href="id.asp?id=<% =RecSet("id")%>">Läs hela artiklen</a> 
        <%Else
		Response.write RecSet("texten")
		End If%>
        </font></p>
      <p align="right"><font face="Verdana" size="1"> 
        <% =RecSet("forfattare") %>
        </font><font face="Verdana" size="2"> </font> </p>
    </td>
    <td width="50%">
      <h2 class="rubrik">
        <% =RS("rubrik") %>
      </h2>
      <p><font face="Verdana" size="1">(<i> 
        <% =RS("datum") %>
        </i> )</font> <font face="Verdana" size="2"> 
        <%
		If Len(RS("texten")) > 200 Then
		Response.write Left(RS("texten"), 200) & "..."%>
        <a href="dvdnyheter.asp?id=<% =RS("id")%>">Läs hela artiklen</a> 
        <%Else
Response.write RS("texten")
End If%>
        </font></p>
      <p align="right"><font face="Verdana" size="1"> 
        <% =RS("forfattare") %>
        </font><font face="Verdana" size="2"> </font> </p>
    </td>
  </tr>
</table>

<%	RecSet.MoveNext
	Loop
	RecSet.Close
	RS.MoveNext
	Loop
	RS.Close
	Connect.Close	%>

Ursäkta att det blevlite långt men det var ända sättet.
Felmedelnadet jag får är:
Feltyp:
ADODB.Field (0x80020009)
Antingen är BOF eller EOF satt till True, eller så har aktuell post raderats. Den begärda åtgärden kräver en aktuell post.

------------------
ja©ob