Captura de mensagem de erro do SQL Server no VBA no Excel

Estou fazendo uma macro do excel para automatizar algumas consultas que eventualmente eu execute no SQL Server. Meu problema é que não sei como o servidor poderia alertar o Excel se uma consulta não tivesse êxito.

Por exemplo, estou importando um arquivo e não há erro de sintaxe, mas isso pode resultar em erro se a instrução de inserção em massa não estiver definida corretamente. Para a conexão SQL, uso o seguinte:

Dim conn As ADODB.Connection
Dim rs As ADODB.Recordset
Dim sConnString As String

' Create the connection string.
sConnString = "Provider=SQLOLEDB;Data Source=localhost;" & _
              "Initial Catalog=" & MyDatabase & ";" & _
              "Integrated Security=SSPI;"

' Create the Connection and Recordset objects.
Set conn = New ADODB.Connection
Set rs = New ADODB.Recordset
conn.Open sConnString

Set rs = conn.Execute(Myquery)

Se eu tiver um erro de sintaxe ao compilar o código, ele será interrompido, o que é bom. Mas se eu tiver outro problema, e. g. o nome do banco de dados não está bom, a tabela já existe, o programa é executado sem erros, só consigo detectar quando o verifico no SQL Server. Eu realmente quero saber de alguma forma se a execução da consulta resultou em erro e depois codificar alguma mensagem de alerta na minha macro. Como eu posso fazer isso?

Toda ajuda é muito apreciada!

questionAnswers(2)

yourAnswerToTheQuestion