<>“
'Visualizzare le intestazioni di tabella per ogni colonna nel Recordset
Oscurare il rowHeader, il rowAll, rowPerc
rowHeader = “ | “
rowAll = “ Spazio | “
rowPerc = “ PERC | “
Mentre non objRS.EOF
rowHeader = rowHeader & ““& objRS (“città„) &„ | “& VbCrLf
rowAll = rowAll & ““& objRS (“SpaceAll„) &„ | “& VbCrLf
rowPerc = rowPerc & ““& objRS (“SpacePERC„) &„ | “& VbCrLf
'Avanzare il recordset
objRS.MoveNext
Wend
objRS.Close
Regolare il objRS = niente
rowHeader = rowHeader & “ “& VbCrLf
rowAll = rowAll & “ |