[Microsoft][ODBC SQL Server Driver][DBNETLIB]SQL Server does not exist or access denied.

Question

Hi, I've seen questions about this error posted elsewhere but I'm not sure if the same issues applied.
I'm trying to connect to SQL Server from a VBA macro in excel. I've managed to do this with the code below where my query is return to cells in my active worksheet but for another query I want to run the data to be return is too large for Excel to handle
and so I'd like to save it as a .csv file but using the second example of my code I get the message "[Microsoft][ODBC SQL Server Driver][DBNETLIB]SQL Server does not exist or access denied". Since I have access to this database from the first example
of the code, I assume my conn.ConnectionString line of code is letting me down.
Can anyone help me please?
'Code to return data to worksheet'
Sub macro2()
With ActiveSheet.ListObjects.Add(SourceType:=0, Source:=Array(Array( _
        "ODBC;DSN=SQLRA - OPENBET;UID=user1;Trusted_Connection=Yes;APP=Microsoft Office 2013;WSID=pdfdf3001;DATABASE=open;Network=DBMSS" _
        ), Array("OCN;Address=SQLRA_DB,55455;ApplicationIntent=READONLY;")), _
        Destination:=Range("$BG$1")).QueryTable
        .CommandText = Array( _
        "select  A.ev_oc_id, B.ev_mkt_id, A.ev_id, D.start_Time, Upper(Replace(A.[desc],'|','')) , A.result, COALESCE(A.sp_num, A.lp_num) , ", _
        "COALESCE(A.sp_Den, A.lp_Den) from open.reporting.tevoc A, open.reporting.tevmkt B, open.reporting.tevocgrp C, open.reporting.tev D ", _
        "where  A.ev_mkt_id = B.ev_mkt_id and B.ev_oc_grp_id = C.ev_oc_grp_id and D.ev_id = A.ev_id and Upper(Replace(D.[desc],'|','')) = 'home' and upper(B.name) = '|today|' and D.ev_type_id in (264, 289) and D.ev_class_id = 49
and D.start>= '" & Year & "-" & Month & "-" & Day & "'" _
        .RowNumbers = False
        .FillAdjacentFormulas = False
        .PreserveFormatting = True
        .RefreshOnFileOpen = True
        .BackgroundQuery = True
        .RefreshStyle = xlInsertDeleteCells
        .SavePassword = False
        .SaveData = True
        .AdjustColumnWidth = True
        .RefreshPeriod = 0
        .PreserveColumnInfo = True
        .ListObject.DisplayName = "Table_Query_from_SQLRA___OPEN_1"
        .Refresh BackgroundQuery:=False
    End With
End Sub
'Code that produces error'
Sub macro1()
Dim conn As ADODB.Connection
Set conn = New ADODB.Connection
Dim testSQL As String
Dim qd As DAO.QueryDef
Dim openbetdb As Database
    conn.ConnectionString = "driver={SQL Server}; server= sqlra_db;uid=user1;APP=Microsoft Office 2013;WSID=pdfdf3001;database=openbet"
    conn.Open
    testSQL = "SELECT * FROM open.reporting.TevType where ev_class_id = 49 and ev_type_id in(289,330,518,13492);"
    Set qd = Db.CreateQueryDef("tmpExport", testSQL)
    DoCmd.TransferText acExportDelim, , "tmpExport", "C:\\export.csv"
End Sub

Answer 1

Hello,
Are you connect to remote SQL Server? If so,
please make sure the target SQL Server is running and is listening on appropriate protocols. Please take a look at the following article about general steps to troubleshoot
SQL connectivity issues:
http://blogs.msdn.com/b/sql_protocols/archive/2008/04/30/steps-to-troubleshoot-connectivity-issues.aspx
Regards,
Elvis Long
TechNet Community Support