Grunch grunch ... :master:

Sembra tutto ok, puoi postare la riga sulla quale si ferma?
Oppure fai cosi'

codice:
Private Sub Form_Load()
On Error GoTo Err_Form_Load   
   Combo3.Clear

   Data2.Recordset.MoveFirst
   Do While Data2.Recordset.EOF = False
      Text1.Text = Data2.Recordset.Fields("anno").Value
      If Text1.Text <> Text2.Text Then
         Combo3.AddItem Text1.Text
      Else
         Data2.Recordset.MoveNext
      End If
      Text2.Text = Text1.Text
   Loop
Exit_Form_Load:
   Exit Sub
Err_Form_Load:
   MsgBox "Errore: " & Err.Number & "  Descrizione: " & Err.Description
   Exit Sub
End Sub
Prova cosi' almeno vediamo nel particolare quale è l' errore