rsTodos while not rsTodos.eof =Padre rsHijos del padre actual while not rsTodos.eof =rsHijos del padre actual rsHijos.next wend rsPadre.next wend