VBA「Application.FileDialog(msoFileDialogOpen)」でSharepointのサイトを表示後、ADO.NETでSharepointに繋げなくなる

初めてお世話になります。
「フォーム：EXCEL／テーブル：SharePointのリスト」を使用したデータべースを作成しており
基本的には上手く動いているのですが、下記一連の動きをした時のみエラーが発生してしまいます。

①EXCEL VBA内で「Application.FileDialog(msoFileDialogOpen)」を使用して
SharePointに保存しているファイルのパスを取得
※.InitialFileName は、「https://～から始まる、SharePoint内のファイルへのアドレス(80文字程度)」
②その後、ADO.NETを使用してSharePointのリストを取得

という流れを取りたいのですが、
どうやら①のファイルダイアログが開いて、そこにSharepointのファイル一覧が表示された瞬間から
ADO.NETを使用してSharePointに繋げる事が出来なくなってしまう様なのです。
.InitialFileNameをCドライブなどにしておけば問題ないのですが、
パスにhttps～を入力して確定→Sharepoint内のファイル群が表示された瞬間に繋がらなくなります。
①②の流れをエラーなく処理するにはどのような修正が必要か分からず
色々なサイトなどでも調べてみたのですが解決出来ず、ご質問させて頂きました。
どうかご教授の程何卒よろしくお願いいたします。

①

VBA（EXCEL）
1　 Dim vrtSelectedItem As Variant    
2    With Application.FileDialog(msoFileDialogOpen)    
3            .InitialFileName = "Sharepointの初期表示アドレス（https～）"
4            .AllowMultiSelect = False
5　　　　★If .Show = True Then　’…ここが実行されるとエラーの原因が発生
6　　　　　　.Execute
7　　　　End If
8    End With

②

VBA（EXCEL）
1    Dim cn As Object 'ADODB.Connection
2    Dim rs As Object 'ADODB.Recordset
3    Dim ListName As String   'リストのテーブル名
4    ListName = "テーブル名"
5
6    Set cn = CreateObject("ADODB.Connection")   
7    cn.Open "Provider=Microsoft.ACE.OLEDB.16.0;WSS;IMEX=2;RetrieveIds=Yes;DATABASE=" & SharePointUrl & ";LIST=" & ListName & ";"
8    
9    Set rs = CreateObject("ADODB.Recordset")
10    rs.CursorLocation = 3
11    With rs
12       ★ .Open "SELECT ＊ FROM LIST", cn '…ここでエラーが発生してストップ
13

ErrerCode
1実行時エラー'2147217865(80040e37)'
2オブジェクト'LIST'が見つかりませんでした。オブジェクトが存在していること、名前やパス名が正しいことを確認してください。’LIST’がローカルオブジェクトでない場合は、ネットワークの接続を確認するか、サーバー管理者に問い合わせてください。

・CreateObjectを使用せず、
インスタンス「New ADODB.Connection・ADODB.Recordset」でも
試したのですが上手く行きませんでした。
・OS：Win10／EXCEL・Sharepointとも、Microsoft365を使用しています。

行動規範の内容に同意します

回答1件

一旦自己解決したかと思ったのですが、
再度試すとやはりエラーになってしまいましたので自己解決を取り消しさせて頂きます。
×msoFileDialogOpen→〇msoFileDialogFilePicker に変更すると
その日は上手く動いたのですが、なぜか翌日実行したところまたエラーになってしまいました。
GetOpenFilenameに書き換えても、
やはりhttps～のSharepointのサイトに繋がった途端に LISTが見つからないという、先に記載したエラーが発生します。
基本的にはエラーなのですが、一旦解決に変更した時の様に稀に上手く動く事もあるのが不思議なのですが・・・
何が原因の症状なのか見当がつかず、出来れば別の方法で安定してエラーにならない方法に変更したくて
色々探してみたのですが見つけられず・・・。
度々申し訳ございませんが、ご教授頂ければと存じます。よろしくお願いいたします。