Thisworkbook.Sheet1 không phải là một đường dẫn đối tượng hợp lệ, hãy thử thay thế:
SqlString = ThisWorkbook.Sheets("Sheet1").Shapes("SqlQuery1").OLEFormat.Object.Text
Hoặc chỉ
SqlString = Sheet1.Shapes("SqlQuery1").OLEFormat.Object.Text
Và đảm bảo rằng trang tính chắc chắn được đặt tên là "Sheet1"
Ngoài ra, bạn cần thay đổi
rs.Open strSQL, conn, adOpenStatic
về điều này:
rs.Open SqlString, conn, adOpenStatic
Và có lẽ bạn nên sử dụng
Dim SqlString as String
khi bắt đầu quy trình
