VB6.0中出现不支持所要求的数据绑定类型 怎么解决

Hierarchical FlexGrid VB6.0中出现不支持所要求的数据绑定类型 ,怎么转换呀
程序总是报错，光标显示在
Set MSHFlexGrid1.DataSource = Mydb 这个地方，我改怎么改

那就转换类型了

microsoft hierarchical flexgrid (mshflexgrid) 控件对表格数据进行显示和操作。在对包含字符串和图片的表格进行分类、合并以及格式化时，具有完全的灵活性。当绑定到 data 控件上时，mshflexgrid 所显示的是只读数据。 语法 mshflexgrid 说明 可以将文本、图片，或者文本和图片，放在mshflexgrid 的任意单元中。row 和 col 属性指定了mshflexgrid 中的当前单元。程序员可以在代码中指定当前单元，也可以在运行时，使用鼠标或者方向键来对其进行修改。text 属性引用当前单元的内容。 如果单元的文本过长而不能在该单元中显示，而且 wordwrap 属性被设置为 true，那么文本就会换行到同一单元内的下一行。为了显示换行的文本，可能需要增加单元的列宽度（colwidth 属性）或者行高度（rowheight 属性）。 可以用 cols 和 rows 属性来决定mshflexgrid 控件中的列数和行数。 显示层次结构记录集 mshflexgrid 控件的一个主要特性是它能显示层次结构记录集—以层次结构方式显示的关系表。创建层次结构记录集的最容易的方法是使用数据环境设计器并把 mshflexgrid 控件的 datasource 属性赋给数据环境。您也可以用 shape 命令作为 ado data control 的 recordsource 在代码中创建层次结构记录，如下面的示例: ' 创建 connectionstring. dim strcn as string strcn = "provider=msdatashape.1;data source=nwind;" & _ "connect timeout=15;data provider=msdasql" ' 创建 shape 命令. dim strsh as string strsh = "shape {select * from `customers`} as customers " & _ "append ({select * from `orders`} as orders relate " & _ "customerid to customerid) as orders" ' 把 connectionstring 赋给 ado data control 的 ' connectionstring 属性, shape 命令以及 ' 控件的 recordsource 属性. with adodc1 .connectionstring = strcn .recordsource = strsh end with ' 把 hflexgrid 控件的 datasource 属性设置到 ' ado data 控件。 set hflexgrid1.datasource = adodc1 详细信息 要查找有关分层记录集的更多信息，请参阅 hierarchical cursors and data shaping summary. shape 命令的详细信息可参阅 shape commands in general. 发行注意 在应用程序中使用 mshflexgrid 控件之前，必须将 mshflxgrd.ocx 文件添加到工程中。为了将该文件自动包括到工程中，可以把它放到自动装载文件中。当发行应用程序时，应该将 mshflxgrd.ocx 文件安装到用户的 microsoft windows 的 system 子目录下。关于将 activex 控件添加到工程中的详细信息，请参阅《visual basic程序员指南》中的“标准 activex 控件”。