ตัวอย่างนี้ ผมใช้สร้าง Access Address Book ไว้ใช้งานเองครับ
เวลาเราคีย์ข้อมูลลง TextBox ข้อมูลที่ต้องการค้นหา จะปรากฏที่ ListBox ทันทีครับ เหมือนใน Address book ของ Outlook ครับ

TextBox ชื่อ txtSearch คีย์ code ข้างล่าง ตรง Event == Change
ListBox ชื่อ lstResults

Private Sub txtSearch_Change()
Dim strRowSource As String
On Error Resume Next
strRowSource = "SELECT รหัสพนักงาน, ผู้ขอรับบริการ, ส่วนงาน,อาคาร_ชั้น, โทรศัพท์ " & "FROM BOT_EMPLOYEE_UNION_QUERY " & _
"Where รหัสพนักงาน Like '*" & Me.txtSearch.Text & "*' " _
& "Or ผู้ขอรับบริการ Like '*" & Me.txtSearch.Text & "*' " _
& "Or ส่วนงาน Like '*" & Me.txtSearch.Text & "*' " _
& "Or อาคาร_ชั้น Like '*" & Me.txtSearch.Text & "*' " _
& "Or โทรศัพท์ Like '*" & Me.txtSearch.Text & "*' "
Me.lstResults.RowSource = strRowSource

คิดว่าคงพอเป็นแนวทางได้นะครับผม
f. iBasskung.