True DBGrid 8.0 и merge - VB

Формулировка задачи:

есть 2 колонки в гриде, там такие значения:

фио         рост
Иванов      173
Петров      173
Сидоров     180

делаю у второй колонки свойство merge=restricted
в итоге в колонке рост 173 объединяется и выглядит как одна общая ячейка.
вопрос: когда я становлюсь на эту объед. ячейку, то в колонке фио выделяется Иванов, пишу в коде:

a=tdbgrid1.columns().value

выдает Иванов. а мне надо, чтобы он выдавал все фамилии, у которых такой рост.
как это правильно сделать?

Решение задачи: «True DBGrid 8.0 и merge»

textual
                            Листинг программы 
                        

                            <font color="blue">dim</font> rs <font color="blue">as</font> adodb.recordset
<font color="blue">set</font> rs= tdbgrid1.DataSource.Clone
rs.filter = <font color="teal">"Рост = "</font> & tdbgrid.columns(<font color="darkblue"><b>1</b></font>).value
<font color="blue">dim</font> s <font color="blue">as</font> <font color="blue">string</font>
<font color="blue">do</font> <font color="blue">until</font> rs.EOF
  s= s & rs(<font color="darkblue"><b>0</b></font>) & vbcrlf
  rs.MoveNext
looop
msgbox s
                        