Bắt thông báo lỗi từ SQL Server trong VBA trong Excel

Đối tượng kết nối ADO có bộ sưu tập Lỗi mà bạn có thể kiểm tra sau khi chạy 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