combo1_change()
runQry
end sub

combo2_change()
runQry
End sub

Sub runQry()
If IsNull(Combo1) Or Combo1 = "" Then Exit Sub
If IsNull(Combo2) Or Combo2 = "" Then Exit Sub

Dim qr As QueryDef
Set qr = CurrentDb.QueryDefs("Query1")
Dim sql As String

sql = "select * from table1 where field2" & Combo1 & Combo2 & ";"
qr.sql = sql
Set qr = Nothing
' DoCmd.OpenQuery "query1"
End sub

ขอโทษผู้ตอบนะครับ
ผมไม่รู้ว่าจะนำโค้ดที่เขียนให้ไปใช้อย่างไร และตรงไหน
ถ้ายังไงช่วยอธิบายให้ละเอียด ด้วยนะครับ ว่าโค้ดชุดไหนใช้ที่ไหน
พอดีผมไม่เก่งโค้ดนะครับ ถ้าไม่รบกวนมากจนเกินไป
                                  ขอบคุณครับ