Фильтрация в VB

[Sound]

Ребят, в общем такой расклад.

Есть Текстбокс и листбокс. В листбокс при клике на OptionButton загружаются названия графств Англии из базы данных:
Private Sub Option1_Click()

lst2.Clear

Data1.Recordset.MoveLast
Data1.Recordset.MoveFirst

c = Data1.Recordset.RecordCount

For i = 1 To c
lst2.AddItem Data1.Recordset.Fields("Counties")

Data1.Recordset.MoveNext

Next i

А теперь помогите пожалуйста мне сделать так, чтоб при вводе в текстбокс буквы или буквосочетания, в Листбоксе оставались лишь те названия, которые начинаются на введенное в текстбокс.



Заранее спасибо

[GSerg]

http://bbs.vbstreets.ru/viewtopic.php?t=18821

[Sound]

я конечно все понимаю, но дело в том что я в Visual basic не совсем профи. И поэтому не могли бы вы дать мне код именно для Листбокса и текстбокса.

Буду очень благодарен