Debes hacerlo así para la segunda conexión:
Código vb:
Ver original'...
'...
ObjItem.SubItems(3) = rs!País & ""
IF RS2.STATE=1 THEN RS2.CLOSE
rs2.Source = "SELECT Propietario.Nombre FROM Propietario INNER JOIN Editoriales ON Propietario.IdPropietario = Editoriales.Propietario WHERE (((Editoriales.Nombre)='" & rs!Nombre & "'))"
RS2.OPEN, CONEXION, adOpenDynamic , adLockOptimistic
IF RS2.EOF=FALSE THEN
'...CODIGO
'...CODIGO
END IF
ObjItem.SubItems(4) = rs2!Nombre & ""
ObjItem.SubItems(5) = rs!País & ""
'...
'...