[vb6] Strano problema con accumulatore

[Deisuke]

Salve a tutti, dovrei creare un film che preso in input il codice di un prodotto, controlli all'interno di un file tutti i prodotti con quel codice, e se è un carico (C) aggiunge ad una variabile (giacenza) la quantità, se invece è uno scarico (S) la sottrae.
Il mio problema è che da un debug mi sono reso conto che la quantità viene messa nel record ma quando tento di aggiungere suddetto valore alla variabile giacenza, quest'ultima rimane sempre 0.. sapreste spiegarmi in cosa sbaglio?
spero di essere stato chiaro..

Private Sub calcola_giacenza(fnomefile As String, fcodp As String, ByRef fgiacenza As Integer)
Open fnomefile For Random As 1 Len = Len(prodotto)
nrec = LOF(1) / Len(prodotto)
fgiacenza = 0

For i = 1 To nrec

Get #1, i, prodotto

If prodotto.codp = fcodp Then
    If (prodotto.tipo = "C") Or (prodotto.tipo = "c") Then
         fgiacenza = fgiacenza + Val(prodotto.qta)
    Else
        fgiacenza = fgiacenza - prodotto.qta
    End If
End If

Next

close #1
End Sub

grazie in anticipo!

[optime]

accertati che prodotto.qta valga davvero qualcosa

[Deisuke]

avevo già fatto più volte il debug e prodotto.qta ad ogni esecuzione del ciclo assume il giusto valore (quello contenuto nel file in base al codice prodotto che cerco).. fgiacenza però rimane sempre 0, come se non sommasse/sottraesse..

[optime]

quindi, se dopo questa istruzione

fgiacenza = fgiacenza +Val(prodotto.qta)

interroghi fgiacenza, questa è sempre zero?