codice:
Data1.RecordSource = "select * from fatture where " & _
             "year(data) = "' & Year(Text14.Text) & "'" & _ 
             "and numero = '" & Text13.Text & "'" & _ 
             "order by id desc" 

Data1.MoveLast
Data1.MoveFirst

Data1.Refresh
se esitono questi due metodi per l'oggetto Data allora dovresti aver risolto.
DAO necessita di quel trucchettino per avere tutti i record a disposizione.