Errore di automazione durante l'esecuzione di script di SQL Server in Excel VBA

Sto aprendo una connessione di SQL Server in EXCEL VBA e nella linea objMyCmd.Execute quando utilizza lo script SQL che riceve questo messaggio di errore:

"Errore di run-time" -2147217900 (80040e14) 'Errore di automazione "

Ho esaminato altri post di SO che sembrano riferirsi a un problema con la stessa string di connessione, ma non credo che questo sia il problema in quanto sono in grado di tirare le prime variables elencate durante l'eliminazione del resto dello script SQL.

Ho tentato di rivedere il codice SQL per vedere se sto utilizzando un formato non corretto o se la lingua non è corretta e non riesco a determinare il problema. Spero che con qualche Q & A possiamo notare qualcosa che ho perso in quanto è scritto? Fathemes sapere se ci sono ulteriori informazioni che posso fornire, sotto il codice fino al punto di errore.

Sub SQL_GetAgentChart() Dim dtDate As Date Dim myTable As ListObject Dim DataServer As String Dim Database As String Dim constring As String DataServer = "GLSSQLMADP2" Database = "PERF_MGMT_BWRSRV_PROD" constring = "Driver={SQL Server};Server=" & DataServer & "; Database=" & Database & "; Trusted_Connection=yes" Dim AVStartDate As Date Dim AVEndDate As Date Dim RepID As Long 'Declare variables' Set objMyConn = New ADODB.Connection Set objMyCmd = New ADODB.Command Set objMyRecordset = New ADODB.Recordset Set myTable = Worksheets("Witness").ListObjects("tblWitness") AVStartDate = DateValue("Mar 01, 2016") AVEndDate = DateValue("Mar 31, 2016") RepID = 2040 'Open Connection' objMyConn.ConnectionString = constring objMyConn.Open 'Set and Excecute SQL Command' Set objMyCmd.ActiveConnection = objMyConn objMyCmd.CommandText = " " & _ "SELECT PERSN_XTRNL_ID_NR, SOURCE, LOGGINGTS, DD7, CUREREASON, CUREDATE, LNSTATUS " & _ "FROM TTB " & _ "WITH INCALL AS (SELECT T.CUREREASON, CUREVALUE " & _ "FROM TTB T " & _ "JOIN PERSONNEL P ON T.PERSONNELID = P.PERSONNELID " & _ "LEFT JOIN CURETRANSLATE C ON T.CUREREASON = C.CUREREASON AND T.LNSTATUS = C.STATUS " & _ "WHERE T.PERSONNELID = " & RepID & " " & _ "AND LOGGINGTS > '" & AVStartDate & "' " & _ "AND LOGGINGTS < '" & AVEndDate + 1 & "' " & _ "AND INCOMING = 1 " & _ "AND DD7 > 0), OUTCALL AS (SELECT T.CUREREASON, CUREVALUE " & _ "FROM TTB T " & _ "JOIN AVAYA A ON T.UID = A.TTBUID " & _ "LEFT JOIN CURETRANSLATE C ON T.CUREREASON = C.CUREREASON AND T.LNSTATUS = C.STATUS " & _ "WHERE PERSONNELID = " & RepID & " " & _ "AND LOGGINGTS > '" & AVStartDate & "' " & _ "AND LOGGINGTS < '" & AVEndDate + 1 & "' " & _ "AND INCOMING = 0 " & _ "AND A.AVAYAGROUP IN ('15', '1A', '1B', '1C', '1D', '1E', '1F', '1G', '1H') " & _ "AND DD7 > 0) " objMyCmd.CommandType = adCmdText objMyCmd.Execute