Esegui SQL scritto in una casella di testo con VBA

Thisworkbook.Sheet1 non è un percorso oggetto valido, prova invece:

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

O semplicemente

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

E assicurati che il foglio sia definitivamente chiamato "Foglio1"

Inoltre, devi cambiare

rs.Open strSQL, conn, adOpenStatic

a questo:

rs.Open SqlString, conn, adOpenStatic

E probabilmente dovresti usare

Dim SqlString as String

all'inizio della routine