scusate,
ho risolto....

passavo il parametro con le "" ovviamente lo vedeva come stringa..scusate...

bastava togliere le "" tanto il passaggio per default è per riferimento.

vaneX

<%
sub Crea_Recordset (Nome,Query)

Set objConn = Server.CreateObject("ADODB.Connection")
objConn.Open Application("str")

Set Nome = Server.CreateObject("ADODB.Recordset")

set Nome=objconn.execute(Query)

end sub

%>


Crea_Recordset objRS,"Select * from Testata"
do while not objRs.eof
response.write objrs("ID_Testata")
response.write "-"
response.write objrs("descrizione")
response.write "
"
objRs.movenext
loop