Thisworkbook.Sheet1
er ikke en gyldig objektsti, prøv i stedet:
SqlString = ThisWorkbook.Sheets("Sheet1").Shapes("SqlQuery1").OLEFormat.Object.Text
Eller bare
SqlString = Sheet1.Shapes("SqlQuery1").OLEFormat.Object.Text
Og sørg for, at arket bestemt hedder "Sheet1"
Du skal også ændre
rs.Open strSQL, conn, adOpenStatic
til dette:
rs.Open SqlString, conn, adOpenStatic
Og du skal nok bruge
Dim SqlString as String
i starten af rutinen