Problema su un update di un campo Yes/No

[diegoctn]

Ragazzi ho questo problema: ho una tabella con cod, art e ann (codice, articolo, annulla). Devo dare modo al magazziniere di annullare gli articoli e quindi ho questo codice:

<%
strconn="Driver={Microsoft Access Driver (*.mdb)}; dbq="&Server.MapPath("magazzino.mdb") 
set Conn=Server.CreateObject("ADODB.Connection") 
Conn.open strconn 
Squery="Select * from articoli;"
set rs=server.createobject("adodb.recordset") 
rs.open Squery,Conn
%>
<table border="1" width="100%">
<tr>
    <td width="25%">Codice</td> 
    <td width="65%">Descrizione</td>
    <td width="10%">Ann.</td>
    
  </font>
    
  </tr>
  
</table>

<form action="ino.asp" method="post"> 
<table border="1" width="100%"> 
	<% while not Rs.eof %>
	<tr> 
		<td><INPUT TYPE="TEXT" name="id" value="<%=rs("cod")%>"></td> 
		<td><font color="#FF9900"><%=rs("art")%></FONT></td> 
		<td><font color="#FF9900"><INPUT TYPE="checkbox" name="ann" %=rs("ann")%></FONT></td> 
		 
	</tr> 
	<% Rs.movenext
	   wend %>
	
	<tr>
		<td colspan="5" align="center"><input type="submit" name="action" value="AGGIORNA TUTTO">

che manda le variabili ann e cod a questa pagina:

  <%
ann= request.form("ann")
idd=request.form("cod")
strconn="Driver={Microsoft Access Driver (*.mdb)}; dbq="&Server.MapPath("magazzino.mdb") 
set Conn=Server.CreateObject("ADODB.Connection") 
Conn.open strconn
if Request("action") <> "" then 
		arrID = Split(Replace(Request.Form("cod")," ",""), ",", -1, 1) 
		For i = LBound(arrID) to Ubound(arrID)
			sql = "UPDATE articoli set ann=' & ann & '  where cod='"& idd&"';" 
			conn.execute(sql) 
		Next
	end if 

conn.execute(sql)

conn.close
set conn = nothing

response.redirect "default.asp"

%>

Mi dice Testo del comando non impostato per l'oggetto comando. Mai sentito prima.