Una Funzione può produrre 2 valori in uscita?

[Gordio]

Ciao a tutti
devo estrapolare un nuovo dato (il Prezzo) da un DB.
Nel mio codice ho già una Funzione che mi punta il record che mi interessa, basta che aggiunga nella SELECT il nuovo campo ed il gioco è fatto.... ma come lo faccio uscire dalla funzione???

o meglio la funzione ha in uscita il suo campo originale (il codice), come faccio a far uscire anche questo? che dovro assegnare ad una variabile per poi essere scritta su un altro DB!!


nella SELECT ho aggiunto questo campo S§PPOE
Grazie

'==============================FUNZIONE CHE PRENDE L'ULTIMO CODICE FORNITORE==========================
Function PrendiForn(Acodicex)
'-------------Comandi da eseguire sul sistema AS/400------

CommandText = "SELECT S§COCF,S§PPOE FROM " & Session("Library") & "." & Session("FileName1") & " WHERE S§NREG=(SELECT MAX(S§NREG) FROM " & Session("Library") & "." & Session("FileName1") & " WHERE S§COAR = '"& Acodicex &"' AND (S§CCAU='AC' OR S§CCAU='R1'))"
CommandType = adCmdText
AS400Command.CommandText = CommandText
AS400Command.CommandType = CommandType

'Response.Write (CommandText)
Set AS400File_rs = AS400Command.Execute

If (Err.Number = 0 ) Then
   While NOT AS400File_rs.EOF
            If isNull(AS400File_rs(0)) Then 
            PrendiForn= "SELECT S§COCF FROM " & Session("Library") & "." & Session("FileName1") & " WHERE S§COAR = '"& Acodicex &"' AND (S§CCAU='AC' OR S§CCAU='R1')"
         else
'               Response.Write ("Codice Fornitore DA AS----= ") & AS400File_rs(0) & "</br>"
'              Response.Write ("Codice x nella funzione----= ") & Acodicex & "</br>"
              Response.Write ("Prezzo----= ") & AS400File_rs(1) & "</br>"
              PrendiForn=AS400File_rs(0)
         End if
         AS400File_rs.movenext
    Wend
    AS400File_rs.Close
    Set AS400File_rs = Nothing
Else
    DisplayError AS400Connection, Err.Number, Err.Description, Err.Source, "Main"
End If
End Function