Dubbla recordsets.

Jag får file allready in use när jag försöker öppna ett nytt Recordset mot en befintlig databas, ja jag har det första RSet fortfarande öppet, vilket är nödvändigt ...

Jag har det att fungera på en annan sajt men vad fan är det jag missat

 Function buildSectionPage(strArg)
    Dim strTHTML
    Dim strSQL
    Dim objRs2, strSQL2 ', objConn2
    strSQL = "SELECT * FROM qry_author_art WHERE tbl_author.auth_sName>'j' and tbl_author.auth_sName<'o'"    
    openDataBase(strDatabase)
    objRs.Open strSQL,objConn
    While Not objRs.EOF
      strTHTML = strTHTML &_
                 "<tr>" & vbCrLf &_
                 "  <td rowspan=""2"" valign=""top"" align=""left""><img src=""images/adobe.gif"" /></td>" & vbCrLf &_
                 "  <td><a class=""document"" target=""_TOP"" href=""" & objRs("art_url") &""">" & objRs("art_title") & "</a></td>" & vbCrLf  &_
                 "</tr>" & vbCrLf &_
                 "<tr>" & vbCrLf &_
                 "  <td><i>" & objRs("auth_fName") &_
                 " " & objRs("auth_sName")
                 'Set objConn2 = server.CreateObject("ADODB.Connection")
                 Set objRs2   = server.CreateObject("ADODB.Recordset")
                 strSQL2 = "SELECT * FROM qry_author_art WHERE art_ID=" & objRs("art_ID")
                 'objConn2.Open (strDatabase)
                 objRs2.Open strSQL2,objConn
                 If NOT objRs2.EOF Then
                 While Not objRs2.EOF 
                 If objRs2("auth_ID")<>objRS("auth_ID") Then 
                   strTHTML = strTHTML & objRs2("auth_fName") & " " & objRs2("auth_sName") & ", "
                   objRs2.MoveNext
                 End If
                 Wend
                 objRs2.Close
                 End If
      strTHTML = strTHTML &_
                 ", " & objRs("auth_desc") &_
                 "<i></td>" & vbCrLf &_
                 "</tr>" & vbCrLf 
      objRs.MoveNext
    Wend
    buildSectionPage = strTHTML
  End Function