需要用到分层Recordset，使用MsDataShape连接提供者来连接数据库，连接字符串为：
strCon="Provider=MSDataShape;Data Provider=你需要的数据驱动提供者 ......"
SQL语句比较复杂了，我以Northwind库为示例，你可以去试试：
Shape {select * from customers} as customers
append ({select * from orders} as orders
relate customerid to customerid) as orders
strCon="Provider=MSDataShape;Data Provider=你需要的数据驱动提供者 ......"
SQL语句比较复杂了，我以Northwind库为示例，你可以去试试：
Shape {select * from customers} as customers
append ({select * from orders} as orders
relate customerid to customerid) as orders
vb中去调试
MergeCells 属性
返回或设置一个值，决定包含相同内容的单元是否应该跨越多行或多列分组在一个单个单元中。语法object.MergeCells [=value]MergeCells 属性的语法包含如下部分内容：部分 描述
object 一个对象表达式，其值为“应用于”列表中的一个对象。
value 一个整数或常数，指定单元分组（合并）。如设置值中所指定。
设置值value 的设置值如下所示：常数 值 描述
flexMergeNever 0 不显示。包含相同内容的单元不分组。这是缺省设置。
flexMergeFree 1 自由。包含相同内容的单元总是合并。
flexMergeRestrictRows 2 限制行。只有行中包含相同内容的相邻单元（向当前单元左边）才合并。
flexMergeRestrictColumns 3 限制列。只有列中包含相同内容的相邻单元（向当前单元上方）才合并。
flexMergeRestrictBoth 4 限制行和列。只有在行中（向左）或在列中（向上）包含相同内容的单元才合并。
说明合并单元的能力使得您能够以一种清晰、简明的方式显示数据。可以连同排序和 MSHFlexGrid 的列序函数一起合并使用单元。要使用 MSHFlexGrid 的单元合并能力： 把 MergeCells 设置为除 0 以外的一个值。（设置值之间的区别在示例中解释。）
为要合并行和列把 MergeRow 和 MergeCol 的数组属性设置为 True。
当使用单元合并能力时，MSHFlexGrid 合并包含相同内容的单元。无论什么时候单元的内容更改，合并都自动的更新。当 MergeCells 被设置为除 0 （不显示）以外的一个值时，突出显示的选择自动关闭。这样做是为加速重画，也是因为包含合并单元范围的选择可能导致不可预料的结果。**************************************************************/
MergeCol、MergeRow 属性
返回或设置一个值，决定哪些行和列可以把它们的内容合并。要使用 MergeCells 属性，这些属性必须为 True。语法object.MergeCol(number) [=Boolean]
object.MergeRow(number) [=Boolean]MergeCol 和 MergeRows 属性的语法包含如下部分：部分 描述
Object 一个对象表达式，其值为“应用于”列表中的一个对象。
number 一个 Long值，指定 MSHFlexGrid 中的列或行。
Boolean 一个 Boolean值，指定当相邻单元显示相同内容时合并是否发生。
设置值Boolean 的设置值如下所示：部分 描述
True 当相邻单元显示相同内容时，行向左合并或列向上合并。
False 当相邻单元显示相同内容时，单元不合并。这是 MergeCol 和 MergeRow 缺省设置值。
说明如果 MergeCells 属性被设置为非零值，具有相同值的相邻单元，只有它们都在一行并且 MergeRow 属性被设置为 True，或都在一列且 MergeCol 属性被设置为 True 时才合并。关于 MSHFlexGrid 的合并功能的详细信息，请参阅 MergeCells 属性。