un_tio estas disculpado no te preocupes...
Aprovecho para comentar que ya logré que funcionara. El código que envie esta bien... lo que le faltaba era la siguiente instrucción; justo antes de: id = rs("ident")
Código:
'--Consigue el segundo resultado del objeto RecordSet
Set RS = Rs.NextRecordSet()
Gracias a todos por la ayuda prestada...
Salu2,