[Resolvido]Editar registro através do formulário

Prezados

Boa tarde

Estou com um problema para editar registros em uma tabela através de um formulário.
Eu clico no registro que é exibido num listbox, ao clicar no botão editar, ele abri um form pequeno com os dados em novos campos e um combobox em que eu clico numa informação e atualiza o ID dessa informação num textbox, até ai show, mais na hora de atualiza o ID que é uma FK e o dado de outro textbox, ele não edita, e quando edita vai errado.

segue o código

Dim db As DAO.Database
Dim tb As DAO.Recordset

Set db = CurrentDb()
Set tb = db.OpenRecordset("TB_ESTRUTURA", dbOpenDynaset)

tb.Edit

tb![ID Area] = [Forms]![FRM_AREA_ESTRUTURA_EDITAR]![txt_ID_Area]
tb![Estrutura] = [Forms]![FRM_AREA_ESTRUTURA_EDITAR]![txt_Estrutura]

tb.Update

tb.Close
Set tb = Nothing

db.Close
Set db = Nothing

DoCmd.Close

Consegui utilizando SQL via VBA!!!

Dim strSQL As String
strSQL = "UPDATE TB_ESTRUTURA " & _
"SET TB_ESTRUTURA.[ID Area] = " & [Forms]![FRM_AREA_ESTRUTURA_EDITAR]![txt_ID_Area] & "," & _
"TB_ESTRUTURA.Estrutura = '" & [Forms]![FRM_AREA_ESTRUTURA_EDITAR]![txt_Estrutura] & "'" & _
"WHERE (((TB_ESTRUTURA.[ID Estrutura]) = " & [Forms]![FRM_AREA_ESTRUTURA_EDITAR]![txt_ID_Estrutura] & "));"

CurrentDb.Execute strSQL
DoCmd.Close