Wykonaj SQL napisany w polu tekstowym za pomocą VBA

Thisworkbook.Sheet1 nie jest prawidłową ścieżką obiektu, spróbuj zamiast tego:

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

Lub po prostu

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

I upewnij się, że arkusz na pewno ma nazwę „Arkusz1”

Ponadto musisz zmienić

rs.Open strSQL, conn, adOpenStatic

do tego:

rs.Open SqlString, conn, adOpenStatic

I prawdopodobnie powinieneś użyć

Dim SqlString as String

na początku procedury