On Error Resume Next

'prima query

On Error GoTo Errore

'seconda query

Errore:

MsgBox Err.Description