Billigeste variant

Jeg har nedenstående function hvor jeg ud fra et et produktid i varinater, skal finde en billigeste variant.

Det virker fint.. MEN

Nu er der i min tabel "Varianter" kommet felt "Tilbud" og "Tilbudspris"

Dvs.

Min tjek opå billigeste vare skal også tage højde for en vare er på tilbud..

HVordan fixer jeg det?





Function billigesteprodukt(strProduktid)
Set rsVare= Conn.Execute("select * from varianter where produktid = " & strProduktid& " ")
if rsVare.bof or rsVare.eof then
billigesteprodukt = ""
else
Set rsVare1= Conn.Execute("select top 1 * from varianter where produktid = " & strProduktid& " order by pris ")
billigesteprodukt = "Kr. " & formatnumber(rsVare1("pris"),2) & ""
rsVare1.Close
set rsVare1 = nothing
end if   
rsVare.Close
set rsVare = nothing
End Function