Senhores, bom dia,

Estou com um problema, consigo cadastrar dados apartir de um userform em um banco access 2016 sem problemas

Mas no update, tenho problemas, diz q o banco está em modo leitura.
Vejam minha conexão e imagens para facilitar o entendimento.

Global banco As Database
Global consulta As DAO.Recordset

Sub ConectaBanco()

       Windows(ThisWorkbook.Name).Activate
       Set banco = OpenDatabase(ActiveWorkbook.Path & "\Data\Cliente.accdb", False, False) 

End Sub

NA HORA DE FAZER UPDATE

ComandoSQL = "Select * from tb_Clientes....."

Set consulta = banco.OpenRecordset(ComandoSQL)

With consulta

.Edit
.Fields("Cliente_DataCadastro") = txt_Data

.update

end with

Alguém pode me dar uma dica de onde está o problema?

Imagens em Anexo.