Hola Carolina, recuerdo q me paso a mi hace tiempo algo parecido y por mas q refrescaba los datos seguian apareciendo los mismos, los de la anterior consulta. En el momento q le vas a pasar el recordset al datareport una linea antes de esta
set datareport.DataSource = rs
le pones
set datareport.DataSource = "%"
si no recuerdo mal con esto lo liberaba y cogia bien el recorset, espero q te funcione.