Beh, così e' un Variant ...

Usa

Dim Tariffa As Currency

e poi

Tariffa = CCur(ors.Fields("CostoAlKm"))