Прихващане на съобщение за грешка от SQL Server във VBA в Excel

Обектът за свързване на ADO има колекция от грешки, която можете да проверите след стартиране на вашия SQL:

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

If conn.Errors.Count > 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