codice:
strSql ="SELECT *  FROM TBL WHERE  (id = '" & id & "')"
set rs=CreateObject("ADODB.Recordset")
rs.Open strSql,conn,,adLockOptimistic	
Do while not rs.Eof 
  rs("idDoc") = id      
  QUI FAI L'UPDATE 
  rs.movenext
loop
rse.close
set rs= nothing