Erro de inserção de linhas   

Boa tarde

Estou a tentar inserir várias linhas de artigos com lotes em documento de venda. Deixo o código:

motor.Vendas.Documentos.PreencheDadosRelacionados(Documento, 2)

‘Insere Linhas no documento

linhasdo.Open(“select * from v_linhas order by linha”, ligacao)

For x = 1 To linhasdo.RecordCount

objLinhaVenda = New VndBE100.VndBELinhasDocumentoVenda

precounit = Convert.ToDecimal(Trim(linhasdo.Fields(“preco_unit”).Value))
qtd = Convert.ToInt16(Trim(linhasdo.Fields(“quantidade”).Value))

motor.Vendas.Documentos.AdicionaLinha(Documento, Trim(linhasdo.Fields(“art_cod”).Value), qtd, linhasdo.Fields(“armazem”).Value, linhasdo.Fields(“armazem”).Value, precounit, 0, linhasdo.Fields(“lote_serie”).Value)

objLinhaVenda = Documento.Linhas

linhasdo.MoveNext()

Next

motor.Vendas.Documentos.CalculaValoresTotais(Documento)

motor.Vendas.Documentos.Actualiza(Documento)

Estoira com erro na instrução adiciona linha: System.Runtime.InteropServices.COMException: ‘O conjunto de registos atual não suporta atualização. Pode ser uma limitação do fornecedor ou do tipo de bloqueio selecionado.’

Alguém me pode dar uma dica?

Obrigado