<>«
'Покажите рубрики таблицы для каждой колонки в Recordset
Затемните rowHeader, rowAll, rowPerc
rowHeader = « | «
rowAll = « Космос | «
rowPerc = « PERC | «
Пока не objRS.EOF
rowHeader = rowHeader & ««& objRS («город») &» | «& VbCrLf
rowAll = rowAll & ««& objRS («SpaceAll») &» | «& VbCrLf
rowPerc = rowPerc & ««& objRS («SpacePERC») &» | «& VbCrLf
'Выдвиньте recordset
objRS.MoveNext
Wend
objRS.Close
Установите objRS = ничего
rowHeader = rowHeader & « «& VbCrLf
rowAll = rowAll & « |