Let's try :
_____________________________
set rst = DB.OpenRecordset("select *from [prices] where [Company number]=" & company_number & " AND [product number] =" & product_num order by (yourdatefieldname) DESC).
You will get many record but the first record is the record that have latest date.