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
в началото на рутината