Erro em tempo de execução

esse é o código:Sub vetor()Dim vteste() As StringDim strsql As StringDim db As DAO.DatabaseDim rs As DAO.RecordsetDim vLinha As StringDim vPCP As StringDim vStatus As IntegerDim NumReg As IntegerSet db = CurrentDbstrsql = "SELECT ProdutosExportação.Linha, ProdutosExportação.PCP," _ & "ProdutosExportação.status, Max(ProdutosExportação.DataLiberada) AS MáxDeDataLiberada " _ & "FROM ProdutosExportação " _ & "GROUP BY ProdutosExportação.LINHA, ProdutosExportação.PCP, ProdutosExportação.Status;" Set rs = db.OpenRecordset(strsql) With rs .MoveLast .MoveFirst NumReg = rs.RecordCount MsgBox "NÚMERO DE REGISTROS DA TABELA PEDIDOS: " & NumReg Do While Not .EOF .Edit vLinha = !Linha vPCP = !PCP !Status = 1 .Update Debug.Print vLinha & " - " & vPCP & " - " & !Status .MoveNext Loop End WithSet db = NothingEnd Sub________________________________________________________________________esse é o erro:erro em tempo de execução '3027':Não é possível atualizar. O banco de dados ou objeto é somente leitura.Qual será o problema?fique com Deus