[Resolvido]Erro 3164 ao adicionar registro em formulário desvinculado

Olá a todos.
Preciso de mais uma ajuda dos amigos desse fórum.

Estou tentando adicionar um novo registro (furmulário desvinculado) mas está dando o erro 3164 (O campo não pode ser atualizado).

Estou sando o seguinte código:

Dim Cam As String
Dim rsTabela As DAO.Recordset


Cam = Application.CurrentProject.Path & "\MRDweb1.1.accdb"
Set rsTabela = DBEngine.Workspaces(0).OpenDatabase(Cam, False, False, "MS Access;PWD=").OpenRecordset("SELECT tbProdutos.IdProduto, tbProdutos.Produto, tbProdutos.Preco, tbProdutos.DtCadastro, tbCatProdutos.Categoria, tbFornecedores.NomeFantasia, tbProdutos.Descricao, tbProdutos.Observacoes FROM tbFornecedores INNER JOIN (tbCatProdutos INNER JOIN tbProdutos ON tbCatProdutos.IdCategoria = tbProdutos.CategoriaId) ON tbFornecedores.IdFornecedor = tbProdutos.FornecedorId;")

With rsTabela

.AddNew
.Fields("Produto") = Me.txtProduto
.Fields("Preco") = Me.txtPreco
.Fields("DtCadastro") = Me.txtDataCadastro
.Fields("Descricao") = Me.txtDescricao
.Fields("Observacoes") = Me.txtObservacoes
.Update

End With

rsTabela.Close
Set rsTabela = Nothing


Onde estou errando?
Grato

Depura para qual linha do vba? Você está unindo várias tabelas, mas vai salvar apenas campos de uma. Por que esse tanto de tabelas com INNER JOIN?

Depura para a primeira linha que irá adicionar.

Você me perguntou porque tantos INNER JOIN... Bem é porque esse formulário tem dados de várias tabelas (relacionadas) e preciso adicionar dados nesses campos também no momento do Add.

Acabei de fazer um teste, e se apenas abrir o recorset com uma tabela (SELECT * FROM tbProdutos), ela salva, mas caso tenha mais de uma tabela, ele da o erro informado...

Será que para adicionar é permitido abrir a conexão de uma tabela.
Assim, terei que abrir uma a uma?

É muito código...

Para adicionar valores em mais de uma tabela, você deverá abrir um recordset para cada uma:

Dim rs1 As Recordset, rs2 As Recordset, rs3 As Recordset

Set rs1 = db.OpenRecordset("Tabela1")

rs1.AddNew
rs1!NomeCampo = Me.NomeCampo
rs1.Update

rs1.Close
Set rs1 = Nothing

Set rs2 = db.OpenRecordset("Tabela2")

rs2.AddNew
rs2!NomeCampo = Me.NomeCampo
rs2.Update

rs2.Close
Set rs2 = Nothing

Set rs3 = db.OpenRecordset("Tabela3")

rs3.AddNew
rs3!NomeCampo = Me.NomeCampo
rs3.Update

rs3.Close
Set rs3 = Nothing

Funcionou, muito obrigado!

Ótimo! Grato pelo retorno.