Voer SQL uit geschreven in een tekstvak met VBA

Thisworkbook.Sheet1 is geen geldig objectpad, probeer in plaats daarvan:

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

Of gewoon

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

En zorg ervoor dat het blad zeker "Blad1" heet

Je moet ook veranderen

rs.Open strSQL, conn, adOpenStatic

naar dit:

rs.Open SqlString, conn, adOpenStatic

En je zou waarschijnlijk

Dim SqlString as String

aan het begin van de routine