codice:
Function RimborsoSpese(byVal...)
...
Dim Tariffa
Dim massimo
Dim mese As String
Dim anno As String
Dim tipo As String
...
sql1 = "get_Percorso('" & utente & "'," & Chr(39) & tipo & Chr(39) & "," & mese & "," & anno & "," & massimo & "," & Chr(39) & partenza & Chr(39) & ")"
Set ors = oConn.Execute(sql1)
Tariffa = 0
While Not ors.EOF
    Tariffa = ors.Fields("CostoAlKm")
    Tariffa = Replace(Tariffa, "," , ".")
    ors.movenext
Wend
ors.Close
Set ors = Nothing
...
Spero vada meglio!