Io per formattare in euro uso:

sommaInEuro=Format(rs!somma, "€#,##0.00")

e non ho problemi