Working with this page:
http://support.microsoft.com/defaul...b;EN-US;q210242
I have modified it to use the OR statement so any criteria matched is outputted:
Private Sub cmdRunQuery_Click()
Dim db As DAO.Database
Dim QD As QueryDef
Dim where As Variant
Set db = CurrentDb()
' Delete the...