Посмотрите, что вы выбираете:
Select sum...<DisplayTitle>.Value
Свойство Value возвращает строку - поэтому тип переменной summary
равен IEnumerable(Of String)
.
Вам, вероятно, просто нужно:
For Each item In summary
sbEventDetail.Append("<h4>" & item & "</h4>")
Next
... при условии, что вам не нужно экранирование HTML, заметьте.