Un recordset dentro de otro

[shashas]

Hola. Probé el código que me pasaste y no funciona me dice

'La operación no está permitida si el objeto está abierto"

Te pongo el código tal y como lo he hecho servir:

Dim rs2 As ADODB.Recordset
Set rs2 = New ADODB.Recordset

On Error GoTo ErrorSub
FEnvioEditorial.connectar
LVEscriptors.ListItems.Clear
While Not rs.EOF
Set ObjItem = LVEscriptors.ListItems.add(, , rs(0))

ObjItem.SubItems(1) = rs!titulo & ""
ObjItem.SubItems(2) = rs!Nombre & ""
ObjItem.SubItems(3) = rs!NomEdi & ""
If IsNull(rs!idSello) = True Then
ObjItem.SubItems(4) = "Sin sello" & ""
Else
If rs2.State = 1 Then rs2.Close
rs2.Source = "SELECT Nombre FROM Sellos WHERE IdSello = " & rs!idSello & ""
FEnvioEditorial.connectar
ObjItem.SubItems(4) = rs2!Nombre & ""
End If
ObjItem.SubItems(4) = rs!NomSello & ""
End If
ObjItem.SubItems(5) = rs!País & ""
ObjItem.SubItems(6) = rs!Contacto & ""
ObjItem.SubItems(7) = rs!FechaEnv & ""
ObjItem.SubItems(8) = rs!FechaReb & ""
ObjItem.SubItems(9) = rs!FechaCon & ""
ObjItem.SubItems(10) = rs!FechaCa & ""
ObjItem.SubItems(11) = rs!anticipo & ""
ObjItem.SubItems(12) = rs!Observaciones & ""
rs.MoveNext
Wend
rs.Close
Exit Sub

ErrorSub:
If Err.Number = 94 Then
Resume Next
End If