Thisworkbook.Sheet1
bukan jalur objek yang valid, coba saja:
SqlString = ThisWorkbook.Sheets("Sheet1").Shapes("SqlQuery1").OLEFormat.Object.Text
Atau cukup
SqlString = Sheet1.Shapes("SqlQuery1").OLEFormat.Object.Text
Dan pastikan sheet tersebut pasti bernama "Sheet1"
Juga, Anda perlu mengubah
rs.Open strSQL, conn, adOpenStatic
untuk ini:
rs.Open SqlString, conn, adOpenStatic
Dan Anda mungkin harus menggunakan
Dim SqlString as String
di awal rutinitas