Help error 3027 ....

Boa Tarde,

Pessoal poderiam me ajudar pesquisei em vários lugares e as soluções sugeridas não estão funcionando meu código para com o error 3027 no campo RS1.EDIT

Alguem poderia  me ajudar a corrigir o problema... obrigado...

Access 2007


Public Sub AtualizaChaveAcesso()

Dim RS1 As DAO.Recordset, RS2 As DAO.Recordset


Set RS2 = CurrentDb.OpenRecordset("SELECT FECHAMENTO.MESANO FROM FECHAMENTO " & _
                                   "GROUP BY FECHAMENTO.MESANO, FECHAMENTO.ANO, FECHAMENTO.MES " & _
                                   "ORDER BY FECHAMENTO.ANO, FECHAMENTO.MES;")
         
   Do Until RS2.EOF


Set RS1 = CurrentDb.OpenRecordset("SELECT BD_ENTRADA.CIA, BD_ENTRADA.FILIAL, BD_ENTRADA.NF_FORNECEDOR, BD_ENTRADA.SERIE, BD_ENTRADA.NR, Format(BD_ENTRADA.CNPJ_FORN,0) AS CNPJ_FORN, BD_ENTRADA.NOME_FORN, BD_ENTRADA.UF, BD_ENTRADA.DT_RECEBIMENTO, BD_ENTRADA.DT_EMISSAO, BD_ENTRADA.ID_CHAVE, BD_ENTRADA.MESANO, UF.IBGE_COD " & _
"FROM (BD_ENTRADA INNER JOIN UF ON BD_ENTRADA.UF = UF.UF) INNER JOIN BD_MT_CFOP ON BD_ENTRADA.CFO = BD_MT_CFOP.CFO " & _
"GROUP BY BD_ENTRADA.CIA, UF.IBGE_COD, BD_MT_CFOP.TIPO, BD_ENTRADA.FILIAL, BD_ENTRADA.EMITENTE, BD_ENTRADA.NF_FORNECEDOR, BD_ENTRADA.SERIE, BD_ENTRADA.NR, Format(BD_ENTRADA.CNPJ_FORN,0), BD_ENTRADA.NOME_FORN, BD_ENTRADA.UF, BD_ENTRADA.DT_RECEBIMENTO, BD_ENTRADA.DT_EMISSAO, BD_ENTRADA.ID_CHAVE, BD_ENTRADA.MESANO " & _
"HAVING ((Not (BD_ENTRADA.ID_CHAVE) Is Null) AND BD_ENTRADA.NR IN (4460865) AND ((BD_ENTRADA.MESANO)= '" & RS2!MESANO & "') AND BD_ENTRADA.EMITENTE = 'T') And (BD_MT_CFOP.TIPO) In ('COMPRA','DEV_CLIENTE','IMPORTACAO')", dbOpenDynaset)
   
   
   
               Do Until RS1.EOF
                   
                       RS1.Edit

                       RS1!ID_CHAVE = Left$(Trim(RTrim(LTrim(RemoverLetra(RemoverCaracter(Replace(RS1!ID_CHAVE, Chr(32), nulo)))))), 44)
                       
                       RS1.Update
       
                   RS1.MoveNext
                   Loop

               RS1.Close
               Set RS1 = Nothing
               
       
       RS2.MoveNext
       Loop
       

   RS2.Close
   Set RS2 = Nothing

End Sub

REGRAS DO FÓRUM

1. Tenha paciência com quem coloca aqui as suas duvidas.
2. Clareza nos títulos dos tópicos e duvidas, evite a linguagem MSN.
3. Não colocar diversas vezes a mesma dúvida.
4. Explicar detalhadamente o problema e informar a versão do seu Office + Sistema Operativo.
5. Retorne sempre se deu certo, esse retorno é muito importante.
6. Respeite toda a equipe Staff e demais membros deste fórum.
7. Use sempre o botão Busca, sempre que tiver uma dúvida e antes de abrir tópicos.
8. Não usar palavras como "Urgente". O fórum é livre e ninguém é obrigado a responder com urgência.
9. A publicidade é proíbida e só pode ser feita pelo Administrador ou depois de aprovada pelo Administrador.
10. Se o seu tópico não for respondido, tem o direito de fazer um Up ao final de 24horas!
11. A colocação de Códigos ou Exemplos, devem constar sempre os créditos de quem o elaborou.
12. Fale, não GRITE! Só letras Maiúsculas, na Internet é o mesmo que gritar!
13. É proibido tirar duvidas nas Salas de Repositório, devem abrir um novo tópico nas salas de duvidas, relacionando o Exemplo em causa.


Corrija seu título, por favor.

Oi marcelo, peço desculpa pelas letras maisculas.. É que meu código realmente está escrito assim e estou com problema no meu teclado so é por isso.. Desculpe mesmo... Conto com a compreeensão..

Vou editar para você já que está com problema no teclado.
Mas as próximas mensagens, por favor, peço que escreva em
letras minusculas.

Obrigado Marcelo, hoje o pessoal do Help Desk aqui da empresa localizou o problema e resolveu o problema.. jamais faria algo para ofender o forum.. me desculpe mesmo...

Ok. Tranquilo!  
Poderia postar aqui seu banco para uma olhada?