[VB6]Format di valori in euro

[Stefanik]

Ciao.
Devo formattare in euro (0.00) dei campi che tiro fuori da un db access.
Il problema è che dal db estraggo la somma dei campi:

qVenduto = "SELECT IDProdotto,SUM(SommaDiQuantita)AS QUANTITA, SUM(format(SommaDiImposta,'0.00'))AS IMPOSTA FROM QueryUnionDataFRP WHERE Data BETWEEN #" & Format(ValoreGiornoDAL, "mm/dd/yyyy") & "# AND #" & Format(ValoreGiornoAL, "mm/dd/yyyy") & "# GROUP BY IDProdotto"
RsVenduto.Open qVenduto, CnVenduto, adOpenDynamic, adLockOptimistic
Set FlexGridVenduto.DataSource = RsVenduto

ma praticamente mi visualizza sulla FlexGrid (FlexGridVenduto) un valore tipo "000000000004".
Come posso fare a visualizzare la somma in modo corretto?
Grazie.