Galera, to usando a seguinte rotina pra fazer uma alteração numa tabela...

 

 num1 = rs("numero")
 num = rs("numero") + 1

 sql="UPDATE tblcont SET numero = '" & num & "' WHERE numero =" & num1
 set conn = conn.execute(sql)

 

mas quando vou testar da o seguinte erro:

"Microsoft JET Database Engine (0x80004005)
A operação deve usar uma consulta atualizável."

 

Mas antes, funcionava e agora não está funcionado mais... se alguém puder me ajudar... valeu

para atualizar eu utilizo este código(Atualizar_categoria_chk.asp):

 

<!--#include file="./Conexao_bd_adm.asp" -->

<%
 Dim Codigo, SQL, rst, Nome
 Codigo = Request("Codigo")
 Nome = trim(Request("Nome"))
 SQL = "Select * From Categorias Where Categorias.[Codigo da categoria] = " & Codigo
 Set rst = server.createobject("adodb.recordset")
 rst.open SQL, vgdb, 2, 2
 if rst.eof then
  rst.close
  set rst = nothing
   Response.Redirect("Atualizar_Categoria_Erro.asp?Categoria="&Nome)
 end if 
 if Nome <> "" then 
   Nome = ucase(Nome)
  rst("Nome da categoria") = Nome
  rst.update
  rst.close
  set rst = nothing
  Response.Redirect("Default.asp")  
 else
  rst.update
  rst.close
   Response.Redirect("Atualizar_Categoria_Erro.asp?Categoria="&Nome)
 end if
%>

esse é o conteúdo do arquivo de include de conexão com do banco de dados:()

 

<%
  Set vgdb = server.createobject("adodb.connection")
 vgdb.open "Provider=Microsoft.Jet.OLEDB.4.0; Data Source="&Server.Mappath("./Dados/BdSite.mdb")
%>

Talvez seu BD esteja somente leitura ou se for Win2000 ou NT naum esteja liberado Acesso Total para o usuario  q esta tentando fazer a alteração, pra testar coloca Acesso Total para todos.