Mover los registros de dos tablas diferentes de forma secuencial puede llevar a error y, lo mas probable, a unos resultados no esperados. Te recomiendo que leas una tabla y busques en la otra dentro del bucle:
Código:
<% If Tabla_1.Eof Then
Response.Write "No Tenemos Datos"
Else %>
<table width="139" border="0">
<%
Do while Not Tabla_1.Eof
set tabla_2 = conn.execute("SELECT * FROM tabla2 WHERE idTEMA = " & Cint (Tabla_1.Fields ("InterpreteIDTEMA")))
if not tabla_2.EOF then
%>
<tr><th>
+ <%Response.Write Tabla_1.Fields ("Interprete_Artista")%>
</th> </tr>
<%
end if
Tabla_1.MoveNext
Tabla_2.close()
Loop %>
</table>
<% End If %>
Es una idea que, seguro MYakire va a mejorar
Un saludo