How to get the number of users connected to an Access DB 1

[NFLDUser]

We are using an ADODB.Connection to an access database. Is there a way that I can grab the number of connections or current sessions to that database?

I have a compact/repair utility built into the software but I want to tell users what workstatations are still connected.

Thanks.

 

[JerryKlmns]

Public Const Jet_Schema_UserRoster = "{947bb102-5d43-11d1-bdbf-00c04fb92675}"
Public Cnn As ADODB.Connection

Sub GuessWho()
Dim S As String
Dim rstSchema As ADODB.Recordset
            
    Set rstSchema = Cnn.OpenSchema(adSchemaProviderSpecific, , Jet_Schema_UserRoster)
    Do Until rstSchema.EOF
        S = S & "Computer Name: " & Left(Trim(rstSchema.Fields(0)), Len(Trim(rstSchema.Fields(0))) - 1) & "     User: " & Left(Trim(rstSchema.Fields(1)), Len(Trim(rstSchema.Fields(1))) - 1) & Chr(10)
        rstSchema.MoveNext
    Loop
    rstSchema.Close
    Set rstSchema = Nothing
    If Len(S) = 0 Then S = "No user."
    MsgBox S, vbOKOnly, "Connected Users"

End Sub

 

[NFLDUser]

perfect, thanks.