Problemas na inserção

Gostaria que alguem me ajudase nesse codigo pq nao sei mais o que fazer...

Desde ja Agradeço http://forum.imasters.com.br/public/style_emoticons/default/sick.gif

ERRO

Tipo de erro:

Microsoft JET Database Engine (0x80004005)

A operação deve usar uma consulta atualizável.

/insert_into.asp, line 22

CODIGO

<%

Option Explicit

Response.Expires = 0

Dim adodbConn, sql ,connStr, dbname ,strQuery, strConnection, nome, telefone, email, comentario

nome = Request.Form("nome")

telefone = Request.Form("telefone")

email = Request.Form("email")

comentario = Request.Form("comentario")

'tableToFind = "contato"

dbname = "contato.mdb"

ConnStr = "Provider=Microsoft.Jet.OLEDB.4.0;data source="

ConnStr = ConnStr & server.mappath(dbname)

set adodbConn = CreateObject("ADODB.Connection")

adodbConn.open ConnStr

sql = "INSERT INTO contato (nome,telefone,email,comentario) VALUES ('"&nome&"','"&telefone&"','"&email&"','"&comentario&"')"

set rs = adodbConn.Execute(sql)

found = rs(0)

if found then

response.write("Dados cadastrados com sucesso")

else

response.write("Houve problemas nao inserção dos dados.")

end if

%>