How to return success/failure message in a VBA program that uses ADODB

Question

I have this little VBA program that uses ADODB to execute a SQL Server Agent job remotely.  How do I add a message box at the end that would give some feedback to the user, if the execution command was successfully sent to the server or if it failed?
Sub Test_SSIS()
Dim conn As Object
Set conn = CreateObject("ADODB.Connection")
conn.Provider = "sqloledb"
conn.Properties("Prompt") = adPromptComplete
conn.Open = "Data Source=MYSERVER;USER ID=JOHNDOE;"
conn.Execute "exec msdb.dbo.sp_start_job 'Test_remote_job_execution'"
End Sub

Answer 1

Hi Tim,
When I looked up the BOL about the ADO.Connection
EXECUTE method, something came to my sight.
"An ExecuteComplete event will be issued when this operation concludes." You may reference the
ExecuteComplete. A quick glance at the event, it contains the execute result set and errors if occured.
Regarding your description, your question is more relevant about VBA, I suggest you post your question on a dedicated VBA forum. It is appropriate and more experts will assist you.
Here is a relevant link you can reference
Visual Basic of Application
If you have any feedback on our support, please click
here.
Eric Zhang
TechNet Community Support