windows - Win XP ではなく Win7 でエラーを記録する (実行時エラー -2147217895 (80040e19))

Question

Error.Description : 名前、ビーチ、またはこの操作の範囲内の選択基準に一致するオブジェクトまたはデータが見つかりません。

Windows 7 でコードを実行すると、このエラーが発生します。Windows XP では表示されません。私はこの記事を読んで、運がありませんでした。コードは次のとおりです。

Public Function testLL()

Dim rc As New ADODB.Record
Dim rs As New ADODB.Recordset
Dim conn As ADODB.Connection
Dim objStream As New ADODB.Stream
Dim sURL As String

sURL = "http://livelink.company.com/livelinkdav/nodes/154680737/"

rc.Open sURL, , adModeReadWrite

Set rs = rc.GetChildren

If Not (rs.BOF And rs.EOF) Then
    rs.MoveFirst
    MsgBox rs.Fields(1).Value

End If 

End Function

一部の人々は、これが MDAC バージョンの問題であると示唆しています。Windows 7 ではバージョンを確認できますが、XP では管理者権限が必要なため、バージョンが同じかどうかを確認できませんでした。