2024/2/27 16:52:49に投降したソースに書き戻して、接続情報，SQLを実際のものにしてみたところ
問題なくデータの取得ができました･･･

前回投降した時点でもコネクションは確認できていたので、発生していた例外は、おそらくSQL文の間違いではなかったかと想像します。
（テーブル名またはフィールド名の間違い）

Do While dr.Read()
でも問題なく動作しました。

お騒がせしました。
ありがとうございました。