<>“
'Exhibir los títulos de tabla para cada columna en el Recordset
Amortiguar el rowHeader, rowAll, rowPerc
rowHeader = “ | “
rowAll = “ Espacio | “
rowPerc = “ PERC | “
Mientras que no objRS.EOF
rowHeader = rowHeader y ““y objRS (“ciudad”) y” | “Y VbCrLf
rowAll = rowAll y ““y objRS (“SpaceAll”) y” | “Y VbCrLf
rowPerc = rowPerc y ““y objRS (“SpacePERC”) y” | “Y VbCrLf
'Avanzar el recordset
objRS.MoveNext
Wend
objRS.Close
Fijar el objRS = nada
rowHeader = rowHeader y “ “Y VbCrLf
rowAll = rowAll y “ |