Führen Sie in einem Textfeld geschriebenes SQL mit VBA aus

Thisworkbook.Sheet1 kein gültiger Objektpfad ist, versuchen Sie stattdessen:

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

Oder einfach

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

Und stellen Sie sicher, dass das Blatt definitiv "Sheet1" heißt

Außerdem müssen Sie ändern

rs.Open strSQL, conn, adOpenStatic

dazu:

rs.Open SqlString, conn, adOpenStatic

Und Sie sollten wahrscheinlich

verwenden

Dim SqlString as String

zu Beginn der Routine