VBAを使用してテキストボックスに記述されたSQLを実行する

Thisworkbook.Sheet1 は有効なオブジェクトパスではありません。代わりに試してください：

SqlString = ThisWorkbook.Sheets("Sheet1").Shapes("SqlQuery1").OLEFormat.Object.Text

または単に

SqlString = Sheet1.Shapes("SqlQuery1").OLEFormat.Object.Text

そして、シートの名前が確実に「Sheet1」であることを確認してください

また、変更する必要があります

rs.Open strSQL, conn, adOpenStatic

これに：

rs.Open SqlString, conn, adOpenStatic

そして、おそらく使用する必要があります

Dim SqlString as String

ルーチンの開始時