you can do this, if you are running the queries from a form..
using the key down event of the form
set the form's KeyPreview property to True
Private Sub Form_KeyDown(KeyCode As Integer, Shift As Integer)
If KeyCode = vbKeyEscape Then
KeyCode = 0
End If
End Sub