sql + between的应用。

数据源
0   1   2    3
3  aa1 aa2  aa3
4  bb1 bb2  bb3数组 tempArr1 = array(0,1,2,3), tempArr2 = Array(0,3,4)aa1对应的X区域是0-3 , 对应的Y区域0-3
aa2 对应的X区域是1-2, 对应的Y区域0-3
aa3的X区域是2-3, 对应的Y区域0-3
.......现在采用方法是数组+SQL+BETWEEN方法。  For ii = 0 To UBound(tempArr1, 2) - 1
    For jj = 0 To UBound(tempArr2, 2) - 1
      
      Sql = "Select TextString From  [Text$]"
      Sql = Sql & " where (InsertPoint0 BETWEEN "
      Sql = Sql & tempArr1(0, ii) & " And " & tempArr1(0, ii + 1)
      Sql = Sql & ") And (InsertPoint1 BETWEEN "
      Sql = Sql & tempArr2(0, jj) & " And " & tempArr2(0, jj + 1) & ") "
      Sql = Sql & "And Not IsNull(TextString) Order by InsertPoint1"
      'Debug.Print Sql
       Set Rst = ConnectRst(Sql)
        If Rst.RecordCount > 0 Then
          Rst.MoveFirst
          tempStr = ""
          For kk = 0 To Rst.RecordCount - 2
            tempStr = tempStr & Rst.Fields(0) & Chr(10)
            Rst.MoveNext
          Next kk
          tempStr = tempStr & Rst.Fields(0)
          Sheet3.Cells(jj + 2, ii + 1) = tempStr
         End If
    Next jj
  Next ii此方法能实现目标需求，但效率低。
请问各位大侠有何高招!谢谢。