วันนี้ผมไปอ่านคำถาม แล้วเขาให้ตัวอย่างมาให้ศึกษาดูด้วย 
เป็นตัวอย่างการค้นหาข้อมูล โดยให้ user กรอกสิ่งที่ต้องการจะค้นหาในช่องทำกำหนดไว้ใน Main Form แล้วให้แสดงผลลัพธ์ใน Subform ลองไปเอามาศึกษาดูได้นะครับที่ 
 
http://www.utteraccess.com/forums/uploads/109364-QBFUsingANDAnd3SearchFieldsVer97.zip 
 
จัดทำโดย Jack Cowley เป็นไฟล์ของ Access97  
 
ถ้าใครต้องการที่จะเข้าไปอ่านกระทู้ที่ให้ตัวอย่างนี้มา ให้ไปดูได้ที่ http://www.utteraccess.com/forums/showflat.php?Cat=&Board=access_97&Number=109343&page=0&view=collapsed&sb=5&o=7&fpart=1 
 
ผมไปเอามาศึกษาแล้วครับ และได้ปรับปรุงโค้ดของเขาด้วย เพื่อให้มีประสิทธิภาพยิ่งขึ้น โดยไม่ต้องลบ Query เป้าหมายทุกครั้งที่จะค้นหา เพราะจะทำให้จำนวน object ที่จะสร้างใหม่ได้ในไฟล์ db หนึ่งตัวเกินจำนวนที่กำหนดได้ 
 
ผมปรับปรุงของเขาดังนี้ครับ 
 
Private Sub Command8_Click() 
Dim db As DAO.Database 
Dim QD As DAO.QueryDef 
Dim where As Variant 
 
Set db = CurrentDb() 
'Delete the existing dynamic query; trap the error if the query does not exist. 
'On Error Resume Next 
'db.QueryDefs.Delete ("Dynamic_Query") 
'On Error GoTo 0 
 
where = Null 
 
If Left(Me![Organisation], 1) = "*" Or Right(Me![Organisation], 1) = "*" Then 
    where = where & " AND [Organisation] Like '" + Me![Organisation] + "'" 
Else 
    where = where & " AND [Organisation]='" + Me![Organisation] + "'" 
End If 
 
If Left(Me![Service], 1) = "*" Or Right(Me![Service], 1) = "*" Then 
    where = where & " AND [Service] Like '" + Me![Service] + "'" 
Else 
    where = where & " AND [Service]='" + Me![Service] + "'" 
End If 
 
If Left(Me![Other], 1) = "*" Or Right(Me![Other], 1) = "*" Then 
    where = where & " AND [Other] Like '" + Me![Other] + "'" 
Else 
    where = where & " AND [Other]='" + Me![Other] + "'" 
End If 
 
'Set QD = db.CreateQueryDef("Dynamic_Query", _ 
      "Select * from connex " & (" where " + Mid(where, 6) & ";")) 
 
Set QD = db.QueryDefs("Dynamic_Query") 
QD.SQL = "Select * from connex " & (" where " + Mid(where, 6) & ";") 
 
'DoCmd.OpenQuery "Dynamic_Query" 
Me.MySubform.Form.RecordSource = "Dynamic_Query" 
 
End Sub 
 
ลองดูครับว่า ผมแก้ตรงไหน