MHFlexGrid 分层显示问题，在线求救！！

Question

引用 ADO 2.6 Library
提示找不到提供者，在Form_Load()中还需写相关代码吗？
Private Sub ShapedRecordset()
Dim cn As New ADODB.Connection
Dim rsParent As New ADODB.Recordset
Dim hflxResults As MSHFlexGrid
cn.Provider = "MSDateShape"
cn.Open "DATA PROVIDER=SQLOLEDB;SERVER=16.45.65.212;UID=sa;PWD=123;DATABASE=pubs"
rsParent.StayInSync = False
rsParent.Open "SHAPE {select stores.stor_id,stor_name,city,state from stores}Append ({select sales.stor_id,ord_num from sales} RELATE stor_id TO stor_id)", cn 
Set hflxResults.DataSource = rsParent
Set rsParent = Nothing
Set cn = Nothing
End Sub
顺便问一下，数据库中的字段名为英文字符，如何让网格中显示的字段名为汉字啊？

Answer 1

我想实现用MHFlexGrid分层显示，请高手指点迷津！

Answer 2

我使用的是ADO Shape命令创建的一个层次Recordset对象，不会没人研究吧，PB里的数据窗口能够显示（手工画出下表，别嫌难看），在VB中遇到了困难，等豪杰帮帮我啊！~~
————————————---------------
1   ID   1    DG   1  NAME   1  OLD   1
---------------------------------------
1   101  1   上海  1   张飞  1   21   1
                   --------------------
1        1         1   王奇  1   22   1
                   --------------------
1        1         1   康建  1   65   1
---------------------------------------
1   102  1   北京  1   李响   1   35   1
                   --------------------
1        1         1   张迈  1    21  1
---------------------------------------         

Answer 3

你说的意思是不是根据地区分组,然后把地区相同的合并。如果是的：
Me.MSHFlexGrid1.MergeCells = flexMergeFree
Me.MSHFlexGrid1.MergeCol(1) = True
MergeCol（）括号内的为需要合并的列
显示汉字表头：
rsParent.Open "SHAPE {select stores.stor_id,stor_name as 汉字A,city as 汉字B,state as 汉字C from stores}