求助：在不安装VB6的环境运行时MSFlexGrid1与 Data1连接不上！

求助：在不安装VB6的环境运行时MSFlexGrid1与 Data1连接不上！

Private Sub Form_Load()
'引用：DAO 3.6
'使用：MSFLXGRD.OCX
'窗体设置：
'Begin VB.Form frm发布问题  
' Begin VB.Data Data1 
' Begin MSFlexGridLib.MSFlexGrid MSFlexGrid1
' 设置： MSFlexGrid1.DataSource = Data1

Dim dbD As Database '库
Dim dbR As Recordset '动态集
Dim SQLs As String

SQLs = "SELECT * FROM [测试表] WHERE [年龄] > 20 "

Set dbD = OpenDatabase(App.Path & "\Access数据库.mdb") '开库
Set dbR = dbD.OpenRecordset(SQLs)
Set Data1.Recordset = dbR
Me.Caption = Data1.Recordset.Fields(0) & " " & _
Data1.Recordset.Fields(1) & " " & _
Data1.Recordset.Fields(2) 'id、姓名、年龄

End Sub

我把所有 dll文件、ocx文件和【发布测试.exe】、【Access数据库.mdb】放在同一文件夹下，在安装有VB6的环境运行正常，但在不安装VB6的环境运行时MSFlexGrid1 与 Data1 连接不上！ Me.Caption显示Data1.Recordset正常，但MSFlexGrid1没有数据。

  先谢谢了！



使用 Package & Deployment 向导生成的发布包\Support\
========= 共有文件 19 个 ==========
* 1 Access数据库.mdb
* 2 asycfilt.dll
* 3 COMCAT.DLL
* 4 dao360.dll
* 5 FLXGDCHS.DLL
* 6 MSFLXGRD.OCX
* 7 msvbvm60.dll
* 8 oleaut32.dll
* 9 olepro32.dll
* 10 SETUP.EXE
* 11 Setup.Lst
* 12 SETUP1.EXE
* 13 ST6UNST.EXE
* 14 stdole2.tlb
* 15 vb6chs.dll
* 16 VB6STKIT.DLL
* 17 发布测试.BAT
* 18 发布测试.exe
* 19 发布测试.DDF
========= End ==========

msflexgrid mahflexgrid类型控件应该和adodc控件配合使用