access2010 SharePointグループ/ユーザ名をチラ見

** Office365beta(プランP1) 環境 **
SharePointグループ/ユーザのIDとか名前をちら見する
SharePointリスト：UserInfoをリンクテーブルにするなりインポートすればよいのだけど。

Sub LookUpSharePointGroupsUsers()
    Dim cn As Object, rs As Object, cnStr As String
    Set cn = CreateObject("ADODB.Connection")
    Set rs = CreateObject("ADODB.Recordset")
    
    cnStr = "Provider=Microsoft.ACE.OLEDB.12.0;WSS;" & _
        "IMEX=1;" & _
        "DATABASE=http://SharePointSiteURL;" & _
        "LIST=UserInfo;"
    
    cn.Open cnStr
    rs.Open "Select ID,名前 From UserInfo " & _
            "where [コンテンツ タイプ]='SharePointGroup' " & _
                   "and 削除済み=0;", cn
'   rs.Open "Select ID,名前 From UserInfo " & _
'            "where [コンテンツ タイプ]='Person' " & _
'                   "and 削除済み=0;", cn
    Debug.Print rs.GetString

    rs.Close: Set rs = Nothing
    cn.Close: Set cn = Nothing
End Sub