24/11/2003, 02:51
|
 | Moderador | | Fecha de Ingreso: enero-2002
Mensajes: 8.031
Antigüedad: 23 años, 3 meses Puntos: 98 | |
| El error que te envía es que no cierras el rs2 después de abrirlo, como está en un loop, pues trata de abrirlo nuevamente, pero como esta abierto con el anterior, te arroja eso...
Supongo que tendrás algo mas o menos así:
Set rs...
Set rs2
While NOT rs.EOF
strSQLrs2= "SELECT..."
rs2.Open strSQL, ObjConn, 3, 3
If NOT rs2.EOF
'Haces algo
End If
'Aqui cierra tu rs2
rs2.close
rs.MoveNext
Wend
Algo así...
Salu2,
__________________
"El hombre que ha empezado a vivir seriamente por dentro, empieza a vivir más sencillamente por fuera."
-- Ernest Hemingway |