que raro....
sabes ya lo resolvi de la siguiente manera:
en el codigo la parte que fallaba era un ciclo for, entonces dentro de ese ciclo creaba un nuevo objeto recordset y usaba la conexion a la db activa, asi que me di cuenta que al intentar abirr la consulta daba error pero lo extraño es que si abria la consulta por decir unas 10 veces y luego decia que ya no podia, asi que lo que hice fue crear una nueva conexion para ese recordeset y la destruia al antes de que el for pasara a otro numero y de esa manera lo resolvi, lo raro es que uso la misma cadena de conexion...
pero en fin.... problema resuelto!!!!!
aki esta el codigo
do while dateValue(ltFecha)<=dateValue(ltFecha2)
lsStrConn = cl_Conexion_DB
set conn2 = server.createobject("adodb.connection")
conn2.open lsStrConn
lsSqltxt="select valor from lectura where cl_idcfe='"&rs("cl_idcfe")&"' and cl_varuca='"&rs("cl_varuca")&"' and fh_lectura between '"<Fecha &" "&i&":00:00.000' and '"& ltFecha &" "&i&":59:59.999'"
set rs2=createobject("ADODB.Recordset")
rs2.open lsSqltxt, conn2
if not(rs2.eof and rs2.bof) then
rs2.MoveFirst
do while not rs2.EOF
if rs2("valor")>0 then
liValor=liValor+(rs2("valor")/1000)
end if
rs2.movenext
loop
end if
rs2.close
set rs2=nothing
conn2.close
ltFecha=DateValue(ltFecha)+1
loop'fecha