بازیابی رکوردها از فایل تصادفی!!!

دوستان من یه برنامه دفترچه تلفن نوشتم که دیتا بیس فایل random هست.
حالا اطلاعات کاربران را در فایل ثبت کردم میخواستم با یه حلقه for رکوردها رو به listbox اضافه کنم اینم حلقه for میشه بگید مشکل از کجاس؟

Dim telb As tb
Open "c:\telbook.txt" For Random As 1
For i = 1 To FileLen("c:\telbook.txt") / 75
Get #1, i, telb
List1.AddItem Trim(telb.name) & Trim(telb.fname) & " " & Trim(telb.telnumber)
Next
Close

البت tb یه udt هست که تعریف کردم.و 75 نیز len داده از نوع tb هست.

دوست عزیز این جا دیگه از حلقه for استفاده نمیکنن چون معلوم نیست که ما توی فایلمون چندتا رکورد داریم بنابر این باید با یه while این کارو کرد به این صورت

کد:

---

open "c:\test.dat" for random as #1 len=(lenb(x)
do while not(eof(1))
get#1,,x
list1.additem x
loop
close #1

---

موفق باشید ....