| Sub ADOUserRoster() Dim cnn As New ADODB.Connection Dim rst As ADODB.Recordset ' Open the connection cnn.Open "Provider=Microsoft.Jet.OLEDB.4.0;" & _ "Data Source=.\NorthWind.mdb;" ' Open the user roster schema rowset Set rst = cnn.OpenSchema(adSchemaProviderSpecific, , JET_SCHEMA_USERROSTER) ' Print the results to the debug window Debug.Print rst.GetString cnn.Close End Sub |
User Roster |
India web developer web development India | Freelance web development ecommerce web developer | Prayagasoft - web designer India, Ecommerce developer india, Ecommerce design