显示ACCESS后台的链接用户数量和计算机名称

试试这个方法：

Sub ShowUserRosterMultipleUsers()
    Dim cn As Object ' New ADODB.Connection    使用后期绑定
    Dim rs As Object 'New ADODB.Recordset  使用后期绑定
    Dim i, j As Long
    Set cn = CreateObject("ADODB.Connection")

    cn.Provider = CurrentProject.Connection.Provider
    cn.CursorLocation = adUseClient
    cn.Properties("Jet OLEDB:Database Password") = "password"  '后台数据库的打开密码
    cn.Open "Data Source=" & "\\192.168.1.2\XXX\XX.accdb"  '换成自己的后台数据库的路径

    Set rs = cn.OpenSchema(adSchemaProviderSpecific,, "{947bb102-5d43-11d1-bdbf-00c04fb92675}")

    'Output the list of all users in the current database.

    Debug.Print Trim(rs.Fields(0).Name), "", Trim(rs.Fields(1).Name), "", Trim(rs.Fields(2).Name), Trim(rs.Fields(3).Name)

    While Not rs.EOF
        Debug.Print Trim(rs.Fields(0)), Trim(rs.Fields(1)), _
        Trim(rs.Fields(2)), Trim(rs.Fields(3))
        rs.MoveNext
    Wend
    cn.Close
    Set cn = Nothing
End Sub