Как пройтись по записям через Property get/let/set - VB

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

Привет всем!
как пройтись по записям через Property get/let/set? вот такой код в dll-ке:
Public rec As ADODB.Recordset
Public Property Get WP() As Variant
WP = rec![w]
End Property
Public Property Let WP(ByVal vNewValue As Variant)
WP = vNewValue
End Property
где w - столбец в таблице и там много записей
вышеуказанный код возвращает только 1-ю запись в столбце w , а мне нужны все записи в столбце.
вызывается эта процедура в ехе-шнике:
Public r as class1
dim s as string
s = r.w
а как вытащить все записи?

Решение задачи: «Как пройтись по записям через Property get/let/set»

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

                            <font color="blue">Public</font> <font color="blue">Sub</font> MyMoveNext()
  rec.MoveNext
<font color="blue">End</font> <font color="blue">Sub</font>

<font color="blue">Public</font> <font color="blue">Property</font> <font color="blue">Get</font> MyEOF () <font color="blue">As</font> Boolean
  MyEOF = rec.EOF
<font color="blue">End</font> <font color="blue">Property</font>
                        