Ciao a tutti.
Non so forse è la vecchiaia, non capisco perchè non funzia il seguente codice:

Do While not RsAndamentoFormato.Eof
call disegna_grafico(Campo1,Campo2)
RsAndamentoFormato.Movenext
Loop

Se invece scrivo così funzia:

call disegna_grafico(Campo1,Campo2)
RsAndamentoFormato.Movenext

call disegna_grafico(Campo1,Campo2)
RsAndamentoFormato.Movenext

call disegna_grafico(Campo1,Campo2)
RsAndamentoFormato.Movenext