[HELP] valori funzione

[Jacqui]

ho una funzione che riceve un valore...
dopo aver verificato se il valore è presente nel db, dovrebbe restituire 4 valori!

Ne restituisce solo 2
-CodProm
e
-promozione

function Ver_Prom(CP)
CodProm=trim(UCase(CP))
promozione = False
SQL = " SELECT * FROM [tabella] WHERE codice = '"&CodProm&"' AND valido "
Set RS = DB.Execute(SQL)
if NOT RS.EOF then
tipo = UCase(RS("tipo"))
valore = RS("valore")
select case tipo
case "S"
promozione = true
ScontoProm = valore
case "T"
case "A"
promozione = true
ScontoProm = valore
end select
end if
Set RS=Nothing
SQL=""
end function