Recordset.MoveFirst
Do
'nominativo
cognom = ""
cognom = Mid$(Nominativo.Value, 1, 10)
scont = Mid$(codice.Value, 1, 3)
'nass
Testo134 = Testo134 + 1

sRiga = "G|" & ndocumento & "|" & dat & "|37|" & dat & "|" & "|" & "|EURO|" & Trim(Recordset.Fields("euro").Value) & "| | | | | |"
sRiga2 = "P|" & scont & "|" & Trim(Recordset.Fields("euro").Value) & "|0|" & cognom & "A." & Trim(Recordset.Fields("nass").Value) & "|"
sRiga3 = "C|" & "|" & Trim(Recordset.Fields("euro").Value) & "|0|" & cognom & "A." & Trim(Recordset.Fields("nass").Value) & "|"
Print #1, sRiga
Print #1, sRiga2
Print #1, sRiga3
Recordset.MoveNext
Loop Until Recordset.EOF