Inclusão de itens em subformulário

Olá, estou usando o seguinte codigo para incluir os itens da venda em um subformulario mas quando vou incluir ele subscreve e não vai para o proximo registro, sei que estou esquecendo de alguma coisa mas não estou identificando onde, alguem pode me ajudar?

Código:

DoCmd.GoToControl "frmdetalhesvenda"
DoCmd.GoToRecord , , acNewRec

Forms!pdv!Texto58 = DLookup("[ccPreçoVenda]", "Tbl_Produtos", "ccBarras='" & Forms!pdv!Barra & "'")
Forms!pdv!frmdetalhesvenda!quant = Me.txtQtd 'Essa linha aqui que está atribuíndo a quantidade
Forms!pdv!frmdetalhesvenda!vlrunitario = DLookup("[ccPreçoVenda]", "tbl_Produtos", "ccBarras='" & Forms!pdv!codbarras & "'")
Forms!pdv!frmdetalhesvenda!codbarras = Format(DLookup("ccBarras", "tbl_Produtos", "ccBarras='" & Forms!pdv!Barra & "'"), "0000000000")

Forms!pdv!TxtProduto = DLookup("ccNomPro", "Tbl_Produtos", "ccBarras='" & Forms!pdv!codbarras & "'")
Forms!pdv!frmdetalhesvenda!Texto3 = DLookup("ccNomPro", "tbl_Produtos", "ccBarras='" & Forms!pdv!codbarras & "'")
Forms!pdv!frmdetalhesvenda!IdMovimento = Me.TxtVenda

Forms!pdv!frmdetalhesvenda!Total = Me.txtQtd * DLookup("[ccPreçoVenda]", "tbl_Produtos", "Barra='" & Forms!pdv!codbarras & "'")
Forms!pdv!codbarras = ""
Forms!pdv!codbarras.SetFocus
Me.txtQtd = 1

Amigo, faltou nos passar varios detalhes...

MAS se esse codigo e executado por completo todas as vezes, veja que ele add um Novo registro DoCmd.GoToRecord , , acNewRec logo no inicio...

Outra coisa que deve observar e se os campos estao vinculados a campos da tabela...

Sim, é executado por completo todas vez....
e os campos estão vinculados sim....

Entao pode ser esse o problema amigo... toda vez ele insere novo registro... Mas posta aqui o exemplo pra analise...