Un recordset dentro de otro

[shashas]

Buenas voy a poner el código que hago servir y me explicare

Public Sub actualitzarLlista()
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 & ""
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
End Sub

Bien yo lo que quiero es hacer un recordset dentro de este que estoy recorriendo en este bucle para hacer una consulta con uno de los valores que me da el resultado de la consulta.

Lo que querría hacer seria algo así

ObjItem.SubItems(6) = rs!Contacto & ""
rs2.source = "SELECT Nombre FROM Tabla WHERE Fecha = " & rs!FechaEnv & "
ObjItem.SubItems(7) = rs2!Nombre& ""

Pero siempre me da error de que el objeto es cerrado.

Espero haberme explicado bien.

Muchasd gracias