<div>
This question has been classified as abandoned and is closed as part of the Cleanup Program. See the recommendation for more details.
</div>

This question has been classified as abandoned and is closed as part of the Cleanup Program. See the recommendation for more details.

<div>
<div class="content wysiwyg-content">
I am running this function from WIN7 &nbsp;using Access 2010 to an MSWIN 2008 R2 server hosting MSSQL 2008 R2 and receive the above message. I can connect using SQLCMD using my user ID and server name with no problem. &nbsp; 
 
Function 
 
Dim CompassConnection As Variant 
&nbsp; &nbsp; 
&nbsp; &nbsp; Set CompassConnection = CreateObject(&quot;ADODB.CONNECTION&quot;) 
&nbsp; &nbsp; 
&nbsp; &nbsp; CompassConnection.ConnectionString = &quot;ODBC;Description=Compass;DRIVER=SQL Server;SERVER=OTTCOMPASS\ITNETCOMP1;APP=Microsoft Open Database Connectivity;WSID=OTTWS100;DATABASE=Compass;Trusted_Connection=Yes;&quot; 
&nbsp; &nbsp; &nbsp; &nbsp; 
&nbsp; &nbsp; &nbsp; &nbsp; If CompassConnection.Open Then 
&nbsp; &nbsp; &nbsp; &nbsp;MsgBox &quot;The connection has been established.&quot; 
&nbsp; &nbsp; End If 
&nbsp; &nbsp; 
&nbsp; &nbsp; CompassConnection.Close 
 
&nbsp; &nbsp; Set CompassConnection = Nothing 
 
END FUNCTION 
 
 
Does anyone have any ideas ? 
 
Thanks for any help you can provide.
</div>
</div>

I am running this function from WIN7  using Access 2010 to an MSWIN 2008 R2 server hosting MSSQL 2008 R2 and receive the above message. I can connect using SQLCMD using my user ID and server name with no problem.  

Function

Dim CompassConnection As Variant
    
    Set CompassConnection = CreateObject("ADODB.CONNECTION")
    
    CompassConnection.ConnectionString = "ODBC;Description=Compass;DRIVER=SQL Server;SERVER=OTTCOMPASS\ITNETCOMP1;APP=Microsoft Open Database Connectivity;WSID=OTTWS100;DATABASE=Compass;Trusted_Connection=Yes;"
        
        If CompassConnection.Open Then
       MsgBox "The connection has been established."
    End If
    
    CompassConnection.Close

    Set CompassConnection = Nothing

END FUNCTION 


Does anyone have any ideas ? 

Thanks for any help you can provide.

Error SQL server does not exist or no login permissions error when running VBA function

Microsoft SQL Server 2008 is a suite of relational database management system (RDBMS) products providing multi-user database access functionality.Component services include integration (SSIS), reporting (SSRS), analysis (SSAS), data quality, master data, T-SQL and performance tuning. Major improvements include the  Always On technologies and support for unstructured data types.

Microsoft SQL Server 2008

Microsoft Access is a rapid application development (RAD) relational database tool. Access can be used for both desktop and web-based applications, and uses VBA (Visual Basic for Applications) as its coding language.

Microsoft Access

Visual Basic is Microsoft’s event-driven programming language and integrated development environment (IDE) for its Component Object Model (COM) programming model. It is relatively easy to learn and use because of its graphical development features and BASIC heritage. It has been replaced with VB.NET, and is very similar to VBA (Visual Basic for Applications), the programming language for the Microsoft Office product line.