Tá gerando o mesmo erro. Tendo em vista que a tabela vem de um arquivo texto, Não posso ordenar-la primeiramente, porque ela ficaria totalmente fora do padrão. Uso o seguinte código:
strCnisa = "SELECT * FROM ImportaContab"
rst.Open strCnisa, cnBd, adOpenKeyset, adLockOptimistic
rst.MoveN-e-x-t
Do While Not rst.EOF 'loop geral para varrer a tabela
If Mid(Trim(rst!Historico), 1, 10) = "----------" Then 'referência para pegar o campo Conta
rst.MoveNext 'vá para o próximo registro pegar o nome da conta
sConta = rst!Campo2
rst!Conta = sConta 'grava a conta no campo Conta
rst.Update
End If
rst.MoveNext
Loop
Ao executar a instrução, somente a primeira linha é atualizada e está gerando o seguinte erro:
"Informações insuficientes ou incorretas sobre a coluna-chave.
Muitas linhas foram afetadas pela atualização. "
Que coluna chave é essa?
