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

.... acnhe se sono più i record che soddisfano la selezione..... me ne vede sempre e solo 1 : data1.recordset.recordcount = sempre a 1

AIUTO Per favore
VBSP5