Udfør SQL skrevet i en tekstboks med VBA

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