Olá amigos.. tenho um array com varianveis do tipo VARIANT que eh preenchido com dados de uma busca em uma base de dados , o que acontece eh que o array ele naum recebe os novos valores passados , mas continua com os dados da primeira atribuição, os outros funcionam normalmente, alguem pode me ajudar ? 

 

logo abaixo segue o codigo, a variavel vperca() naum altera o valor, apenas prevalece ovalor da primeira vez que usei o form

 

  For J = 1 To l
        videal(J) = (q(J) * p(0) / q(0)) / q(J)
        vperca(J) = videal(J) - a(J) 'Quanto Perdeu a na Pesagem 2
        Dim vp As Variant
        Dim k As Integer
        vp = vperca(J)
        k = J + 1
        List1.AddItem ("" & k & "º PESAGEM PERCA DE " & Format(vp, "####,##0.00") & " ")       
    Next J
       ' Calcular a Media de Perca Total do Lote
    
     
     lblPercaTotal.Caption = Format(vperca(l) * q(0), "####,##0.00") + " Kg"
   
    ' Perca total do lote com O ACRESCIMO da tabela PERCA
     '
     lblstatusPt.Caption = Format((vperca(l) * q(0)) + acres, "####,##0.00") + " Kg"
   
    ' Retorna a quantidade Disponível de frangos
    
     lblStatusQtde.Caption = rsLote!qtdedisponivel & " "

não faltou um list1.clear ante do laço e para aliviar a memoria pq vc não retire a declaração de variáveis de dentro do laço

Isso eu já tinha feito, mas já solucionei o problema, ai vai a dica caso algum de vocês se deparem com o problema.. inicializem as variaveis ( ao mesmo tempo anulando os valores antigos atribuidos a elas ) ...

 

l = rs.recordcount - 1

For J = 0 To l
        videal(J) = 0
        vperca(J) = 0

Next J