Connection string for Integrated Security

User 13592306

Hello:
I am trying to connection using old school VBA.

This works in VBA!
connectionString = "Provider=sqloledb;Data Source=w2012;Initial Catalog=M1_SU;User Id=m1view;Password=connect2m1;"

This works in VB.NET, but says the server does not exist or access is denied...
"Provider=sqloledb;Data Source=sage;Initial Catalog=JobSheet;persist security info=True;Integrated Security=SSPI;"

Why would the server be available in VB.NET but not in VBA?

Here's the complete code. I must be missing something..
Sub GetJobs_Click()
Dim connectionString As String
' connectionString = "Provider=sqloledb;Data Source=w2012;Initial Catalog=M1_SU;User Id=m1view;Password=connect2m1;"
connectionString = "Provider=sqloledb;Data Source=sage;Initial Catalog=JobSheet;persist security info=True;Integrated Security=SSPI;"
Dim cn As ADODB.Connection
Set cn = New ADODB.Connection

Dim rs As ADODB.Recordset
Set rs = New ADODB.Recordset
    
Dim sql As String
sql = "SELECT \* From \[JobSheet\].\[dbo\].\[JobInfo\] ORDER BY JobNo "
MsgBox (sql)
    
cn.connectionString = connectionString
\[COLOR="#FF0000"\]cn.Open ' ERROR'S HERE\[/COLOR\]
    
rs.Open sql, cn, adOpenKeyset, adLockReadOnly, adCmdText
rs.MoveFirst
Do While Not rs.EOF
    MsgBox (rs.Fields("JobNo"))
    rs.MoveNext

Loop

rs.Close
Set rs = Nothing
    
cn.Close
Set cn = Nothing

End Sub

Thanks!

Dave Kreskowiak

"Integrated Security" just means to use the credentials of the account running your code. Unless the SQL Server is setup to accept the users Windows accounts as authentication, Integrated Security won't work.

Asking questions is a skill CodeProject Forum Guidelines Google: C# How to debug code Seriously, go read these articles.
Dave Kreskowiak