Con lo script di sotto, mi da errore alla linea in rosso (Tipo di errore: Provider (0x80004005)Errore non specificato.)

<%
id = request.querystring("id")
titolo = request.form("titolo")
commento = request.form("commento")

if titolo = "" then
titolo = "Senza titolo"
end if

if commento = "" then
titolo = "Nessun commento"
end if

Response.write "id: "&id&"

"
Response.write "titolo: "&titolo&"

"
Response.write "commento: "&commento&"

"

Set Conn=Server.CreateObject("ADODB.Connection")
strConn="driver={Microsoft Access Driver (*.mdb)}; "
strConn=strConn & " DBQ=" & Server.MapPath("../../mdb-database/community.mdb")
Conn.Open strConn
sql = "SELECT * FROM upload where id="&id
Set rs = Server.CreateObject("ADODB.Recordset")
rs.open sql, conn, 3,3

rs("titolo") = titolo
rs("commento") = commento
rs("id_risposta") = id
rs.update

response.redirect ("vedi.asp?id="&id)

rs.Close
set rs = Nothing
conn.Close
set conn = Nothing
%>