Intercettazione del messaggio di errore da SQL Server in VBA in Excel

L'oggetto di connessione ADO ha una raccolta Errors, che puoi controllare dopo aver eseguito il tuo SQL:

conn.Errors.Clear
Set rs = conn.Execute(Myquery) 

If conn.Errors.Count &GT; 0 Then
    For i = 0 To conn.Errors.Count
        Debug.Print conn.Error(i).Number 
        Debug.Print conn.Error(i).Source 
        Debug.Print conn.Error(i).Description
    next i
End If

Questo dovrebbe farti iniziare. Potresti scoprire che stai vedendo un "errore zero" che in realtà è un messaggio di stato; in tal caso, avrai un po' di codice aggiuntivo da fare.