L'errore è a questa riga :

objRst.Open sql, objCnt


ma ti mando tutto il codice:




<td>Comune</td>
<td>NAbitanti</td>
<td>CostoHWCA</td>
<td>Abitanti50</td>

</tr>
<%

Set objCnt = server.CreateObject("ADODB.Connection")
Set objRst = Server.CreateObject("ADODB.RecordSet")
'Set access = Server.CreateObject("DAO.DBEngine.35")

objCnt.Open "dsn=DB2004"


sql=" SELECT [Tutti Query].NomeComune AS Comune,[Tutti Query].NAbitanti AS NAbitanti, [Tutti Query].Abitanti50, [Tutti Query].CostoHWCA" & _
" FROM [Tutti Query] ORDER BY [Tutti Query].NomeComune"



objRst.Open sql, objCnt


do while not objRst.EOF

'record corrente
%>
<tr>


<td><%Response.Write objRst("Comune")%>
</td>
<td><%Response.Write objRst("NAbitanti")%>
</td>
<td><%Response.Write objRst("CostoHWCA")%>
</td>
<td><%Response.Write objRst("Abitanti50")%>
</td>




<%