Prova così :
codice:
'Sostituisci 
sRiga3 = "C|" & "|" & Trim(Recordset.Fields("euro").Value) & "|0|" & cognom & "A." & Trim(Recordset.Fields("nass").Value) & "|" 
'Con  
sRiga3 = "C|" & "|" & Trim(Recordset.Fields("euro").Value) & "|0|" & cognom & "A." & Format(Trim(Recordset.Fields("nass").Value), "0.00;-0.00;0") & "|"
Ciao,