Hola!!
Porque terminas las asignaciones con [ & "" ] ? No es necesario....
La linea [ rs2.source = "SELECT Nombre FROM Tabla WHERE Fecha = " & rs!FechaEnv & "] te da error, porque el RS2 no le das SET ni OPEN, ademas de que terminas la instruccion con [ & " ], creo que de esta forma si te funcionaria:
Código vb:
Ver original'En las declaraciones
Dim rs2 as Adodb.recordset
Set rs2 = New Adodb.Recordset
'...
'...
ObjItem.SubItems(6) = rs!Contacto
If rs2.state=1 then rs2.close ' Primero validamos si está abierto, si lo está lo cerramos
rs2.source = "SELECT Nombre FROM Tabla WHERE Fecha = ' " & rs!FechaEnv & " ' " '--> Si el campo fecha no es caracter, quita las comillas simples y el [ & "" ] al final
rs2.Open , CONEXION, STATIC, LOCKTYPE '-->Completa la sentencia
If rs2.EOF=false then
'HAY DATOS
Else
'NO HAY DATOS
End if
ObjItem.SubItems(7) = rs2!Nombre& ""
'...
'...