Ho provato a usare il codice da te postato ma l'errore e la dicitura sono sempre uguali...

Mi da errore sulla riga segnata in grassetto, ma se vado a vedere i tooltip che escono in modalità debug mi da errore su tutte le righe dove richiamo il controllo data...

codice:
Private Sub 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

End Sub