در این مثال با وارد کردن بخشی از آنچه را که قرار است جستجو نمائید را وارد کرده و نتایج را در قالب یک لیست مشاهده میکنید
Option Compare Database
Option Explicit
Dim sel As String, Sortby As String
Private Sub Command6_Click()
Dim sql As String
If Me.Select = 1 Then
sel = "Students.LastName Like '*" & Me.Text2 & "*'"
ElseIf Me.Select = 2 Then
sel = "Students.CellPhoneNomber = '" & Me.Text2 & "'"
ElseIf Me.Select = 3 Then
sel = "Students.SchoolName like '*" & Me.Text2 & "*'"
End If
sql = "SELECT Students.CellPhoneNomber, Students.SchoolName, Students.LastName, Students.FirstName, Students.StudentId " _
& "FROM Students " _
& "WHERE " & sel & "" _
& "ORDER BY Students.LastName "
Me.List0.RowSource = sql
Me.List0.Requery
Me.List0.Visible = True
Me.List0.ForeColor = 333
Me.List0.ColumnHeads = True
Me.List0.ColumnWidths = "2.5 cm; 2.5 cm; 3 cm; 2 cm;2 cm"
End Sub
در نهایت نتیجه به شکل زیر خواهد بود