ecci
codice:
  Try
            Res = Com.ExecuteReader
            Dim Descrizione As String

            Res.Read()

            DataOrdine = Res("Data") & ""
         
            Res.Close()

        Catch ex As Exception
            MsgBox(ex.InnerException.ToString & " " & ex.Message )
        End Try

se per caso da errore
entra in catch (ancora prima del messaggio) e si ferma!
questa è la struttura che utilizzo anche per le altre eccezioni