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.
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."
Set CompassConnection = Nothing
Does anyone have any ideas ?
Thanks for any help you can provide.