استفاده از رویداد OnChange تکست باکس موردنظربنام فیلتر بای ... اسم لیست باکس در این مثال List0 هست .
سورس لیست باکس از جدول بنام Table1 حاوی فیلدهای نام و نام خانوادگی .... در مثال پائین s برداشته شود ( انتهای متن sql )
()Private Sub FilterBy_Change
Dim Sql As String
Sql="Select Fnam,Lnam From Table1 Where Fnam
Lnam Like '" & Me.FilterBy.Text & "*'" s &
Me.List0.RowSource=Sql
End Sub