ups!
Bueno, la verdad es que solo tomé tu primer código y lo empecé a modificar en el mismo cuadro de respuesta rápida, ese fue un error mio al colocar por inercia algo referente a un RecordSet.
En tu caso, lo más sencillo (quizá no es lo mejor pero si lo más sencillo) seria colocar en lugar de esa linea algo como esto:
Código ASP:
Ver originalSet rshijos_cmd = Server.CreateObject ("ADODB.Command")
rshijos_cmd.ActiveConnection = MM_conn_PMR2009_STRING
rshijos_cmd.CommandText = "SELECT Tra_ID, Tra_NoModalidad as cveSec, Tra_HomoclaveGeneral as clave, Tra_HomoclaveModalidad, " &_
" Tra_Nombre, Tra_NombreModalidad FROM dbo.Tramite t WHERE t.Tra_NoModalidadTmp > 0 AND Dep_ID =100 " &_
" AND Tra_ID = " & rsPadre.Fields.Item("Tra_ID").Value
rshijos_cmd.Prepared = true
Set rsPadre = rsPadre_cmd.Execute
y en lugar de rshijos.Close poner
Código ASP:
Ver originalrshijos.Close()
Set rshijos = Nothing
La idea era de que vieras y analizaras como se puede imprimir un Maestro-Detalle de una forma simple y rápida. Ahorita así como te puse que lo hicieras creas y destruyes por cada registro padre un objeto Command, esto te puede hacer un poco lento el proceso, ¿qué tanto? depende de registros maestro que tengas, hay otras formas de hacerlo pero esta es la más parecida a lo que ya tienes y no te implica conocer nada nuevo
Saludos