<>“
'Indicar títulos de tabela para cada coluna no Recordset
Escurecer o rowHeader, rowAll, rowPerc
rowHeader = “ | “
rowAll = “ Espaço | “
rowPerc = “ PERC | “
Quando não objRS.EOF
rowHeader = rowHeader & ““& objRS (“cidade”) &” | “& VbCrLf
rowAll = rowAll & ““& objRS (“SpaceAll”) &” | “& VbCrLf
rowPerc = rowPerc & ““& objRS (“SpacePERC”) &” | “& VbCrLf
'Avançar o recordset
objRS.MoveNext
Wend
objRS.Close
Ajustar o objRS = nada
rowHeader = rowHeader & “ “& VbCrLf
rowAll = rowAll & “ |