Option Compare Database
Private Sub btnRunQuery_Click()
On Error GoTo Err_btnRunQuery_Click
Dim MyDatabase As Database
Dim MyQueryDef As QueryDef
Dim where As Variant
Set MyDatabase = CurrentDb()
On Error Resume Next
' Delete the existing dynamic query; trap the...