Cita: Do While Not rs1.EOF
if Rfc <> rs1("RFC") then
SQL = "SELECT RFC,PRIMA_QUINCENAL,FBAJA FROM TITULARES WHERE POLIZA = '" & Pol & "' AND RFC = '" & rs1("RFC") & "';"
rs2.Open SQL,cna,3,3 ---------------------------------- Linea 32......
Si te fijas aquí tienes ese recordset dependiendo de un ciclo...
Haz mientras que no sea fin de archivo de rs1
.
.
.
Abres rs2
Ejecutas tus procedimientos con el rs2
.
.
Tienes que cerrar el rs2 antes de volver a abrirlo
rs2.close
Regresa
Salu2,