Chytání chybové zprávy ze serveru SQL ve VBA v Excelu

Objekt připojení ADO má kolekci Errors, kterou můžete zkontrolovat po spuštění 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

To by vás mělo nastartovat. Možná zjistíte, že se vám zobrazuje 'chyba nula', což je ve skutečnosti stavová zpráva; pokud ano, budete muset udělat nějaké další kódování.