Erro no script

[Mauri Siqueira]

Olá.

estou tentando inserir dados em um banco na intranet (.mdb) apenas como teste de conexão. Segue o script asp:

<code>

<%@LANGUAGE="VBScript"%>

<%

Dim conObj

Set conObj = Server.CreateObject("ADODB.Connection")

conObj.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & Server.MapPath("/cdp/conn/banco/ddrh.mdb") & ";"

sql = ("INSERT INTO convenios (nomeDaEmpresa,categoria) VALUES ('teste','teste')")

Dim rs

Set rs = conObj.Execute(sql)

if rs.EOF then

response.write("A inserção foi feita com sucesso!")

else

response.write("Tente outra vez")

response.redirect("incluir_convenios.asp")

end if

set rs = nothing

%>

</code>

E o erro é o seguinte:

Microsoft JET Database Engine erro '80004005'

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

/cdp/admin/convenios/pages/novo.asp, line 11

Desde já agradeço pela atenção!

[bareta]

defina as permissões de escrita na pasta do banco.