Excluir item da caixa de listagem

Olá estou desenvolvendo um PDV e estou com dificuldade para resolver este erro.

O erro acontece quando eu quero remover itens adicionados na lista.
O botão excluir executa normalmente, devolve o item ao estoque, mas não exclui o item da lista.
A lista esta vinculada a tblVendaDet.
O correto seria após selecionar o item da lista excluir devolver ao estoque e atualizar a lista.

Private Sub btEcluirProduto_Click() 'Excluir item da lista

If MsgBox("Deseja excluir esse item da lista?", vbYesNo + vbInformation, "Atençao") = vbYes Then

Call fncDevolverEstoque

If txtCodigo = DLookup("CodigoBarra", "tblCad_Produto", "CodigoBarra='" & Me!txtCodigo & "'") Then

CurrentDb.Execute ("DELETE * FROM tblVendaDet WHERE ProdutoID = int(val('" & txtCodigo & "'))AND VendaID = (" & txtVendaID & ");")
MsgBox "Item excluído com Sucesso.", vbInformation + vbOKOnly, "Atenção!"
Me.ListaItensVenda.Requery

 Else

 MsgBox "Selecione o item na lista para exclusão.", vbInformation + vbOKOnly, "Atenção!"

  Exit Sub
End If
End If

End Sub

Obrigado

Já perdi algums finais de semana......tentando resolver.
Já virei youtube de cabeça pra baixo........rsrssrsr

Fico no aguardo

Obrigado

Só tenho a agradecer por pessoas como você por estarem a disposição para ajudar.

Concerte-se será os próximos passos... para melhorar o controle de estoque.........
Para depois partir para o controle financeiro, crediários , geração de carne.........
O caminho é longo mais é gratificante.

Obrigado.