prova così:

[code]

Private Sub avanti_Click()
rsonn.MoveNext

If rsonn.EOF Then
rsonn.MoveFirst
label_i.Visible = False
indietro.Enabled = True
avanti.Enabled = False
label_a.Visible = True
label_a.Caption = "FINE RECORD"
End If

scrivivalue

End Sub

[code]