<>„
'Tabellenköpfe für jede Spalte im Recordset anzeigen
rowHeader, rowAll, rowPerc verdunkeln
rowHeader = „ | „
rowAll = „ Raum | „
rowPerc = „ PERC | „
Während nicht objRS.EOF
rowHeader = rowHeader u. „„u. objRS („Stadt“) u.“ | „U. VbCrLf
rowAll = rowAll u. „„u. objRS („SpaceAll“) u.“ | „U. VbCrLf
rowPerc = rowPerc u. „„u. objRS („SpacePERC“) u.“ | „U. VbCrLf
'Das recordset voranbringen
objRS.MoveNext
Wend
objRS.Close
objRS einstellen = nichts
rowHeader = rowHeader u. „ „U. VbCrLf
rowAll = rowAll u. „ |