mi spiace non è così, se inserisco "exit sub" non solo mi visualizza il messaggio di errore fornito da vb, ma non mi visualizza il mio di messaggio.... ho provato a fare cambi di riga una volta non riesce a stamparmi la query un'altra volta sembra un codice morto!
cmq io ho fatto in qs maniera ma nn funziona
codice:
    ElseIf CMBtab.ListIndex = 5 Then
        On Error GoTo Errore
        ADOtab.RecordSource = "RISULTATI"
        On Error Resume Next 'serve per far avanti il codice nonstante si sia verificato un errore
        ADOtab.Refresh
           If Err.Number = -2147217865 Then ' codice di errore per tabella non trovata
   Exit sub     
Errore:
            MsgBox ("La tabella non è stata creata. Per creare ora la tabella premere il tasto RISULTATI")
            End If
        On Error GoTo 0