Alterei o SQL para:
Dim da As New OleDb.OleDbDataAdapter("SELECT Codigo, CodProd, SaldoAnterior, Entrada, DEntr, Saida, DSaid, SaldoAtual, AtualizadaPor FROM MOVIMENTOS" & " WHERE codProd = " & codigo, cn)
E deu certo. Estava utilizando o * "Asterisco" para trazer todas as colunas ( SELECT * FROM...) e não estava funcionando, estava trazendo todos os registros DA TABELA e não era o que eu estava precisando, mas ao passar
as literais passou a funcionar (estranho não?), outra coisa, tirei a rotina MovimentarRegistro:
If dt.Rows.Count > 0 Then
'MovimentarRegistro(eRegistro.Ultimo)
posicao = dt.Rows.Count - 1
' mEstq.Codigo = dt.Rows(0).Item("codigo .....
Mesmo só mudando a rotina MovimentarRegistro, não funcionou, só funcionou quando alterei o sql do Select...
Está me trazendo realmente o último registro da seleção da tabela.
Bom, aqui ficará como uma dica, se alguém precisar no futuro.
Obrigado.
helio Passos