Allora, con un pò di tenacia e pazienza ho risolto così:

code
----------------------------------------------------------
Set RsTempPro = New ADODB.Recordset
RsTempPro.Open "SELECT SUM(Importo) AS SommaImporto FROM TempPro WHERE Iva='" & "4" & "'", dB, adOpenStatic, adLockOptimistic

f.lblImpIva4.Caption = FormatNumber(RsTempPro.Fields("SommaImporto"), 2)

RsTempPro.Close
-----------------------------------------------------------
/code

!!!FUNZIONAAAAAAAAAAAA!!!