Unanswered: Establish a Connection (recordset) to a db with ULS enabled
I want to use the code below (courtesy of Microsoft) to determine what users are logged into my Backend DB.
Dim cn As New ADODB.Connection
Dim cn2 As New ADODB.Connection
Dim rs As New ADODB.Recordset
Dim i, j As Long
cn.Provider = "Microsoft.Jet.OLEDB.4.0"
cn.Open "Data Source=\\Nacpfp02\Ds_nips-data_tx\vibePublisher\vPBE.mdb"
cn2.Open "Provider=Microsoft.Jet.OLEDB.4.0;" _
& "Data Source=c:\Northwind.mdb"
' The user roster is exposed as a provider-specific schema rowset
' in the Jet 4 OLE DB provider. You have to use a GUID to
' reference the schema, as provider-specific schemas are not
' listed in ADO's type library for schema rowsets
Set rs = cn.OpenSchema(adSchemaProviderSpecific, _
'Output the list of all users in the current database.
Debug.Print rs.Fields(0).Name, "", rs.Fields(1).Name, _
"", rs.Fields(2).Name, rs.Fields(3).Name
While Not rs.EOF
Debug.Print rs.Fields(0), rs.Fields(1), _
My problem is that the BE has ULS enabled. So the question is... How do I pass the Username and Password in order to establish the connection?
I saw this on a website about a week ago and thought that I had bookmarked the page. I was wrong.....