Preciso editar um campo de uma tabela, porém não estou conseguindo dentro de um loop. Estou usando DAO Jet no Access:
O erro ocorre quando chega no Resultado.Edit, a mensagem de erro diz que esse tipo de objeto não suporta essa operação.
gsql = "Select * from pedidos"
Set Resultado = BaseDados.OpenRecordset(gsql, dbOpenSnapshot)
Do Until Resultado.EOF
If Resultado!cod_pedido = txtCodPed Then
Resultado.Edit 'Aqui ocorre o problema
Resultado!pendente="NAO"
End If
Resultado.MoveNext
Loop
Resultado.Close
Se alguém já passou por isso ou souber como usar outra lógica ou sintaxe para resolver, desde já agradeço a ajuda!