Secondo voi cosa c'è che non va in questo ciclo IF Then else
Do While Not RsDitta.Eof
If RSDitta("Posizione") = posizione Then
For I = 1 to (Diff+1)
RSDitta("Posizione")=Posizione+I
RSDitta.Update
RSDitta.Movenext
Next
Else
RSDitta.Movenext
End If
Loop
Il sistema non entra mai in questo ciclo if anche se la condizione è vera!

Aiutatemi sto impazzendo!