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

Question

求助：在不安装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 ==========

Answer 1

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

Answer 2

先谢谢两位！
1.由于使用adodc 连接有关联的查询时遇到问题，所以使用DAO,而dao 只能连接data、只能连接MSFlexGrid。
2.由于软件只是某系统外的辅助工具，不准许触动注册表，所以不能进行安装，只能做成准绿色软件。

Answer 3

只准绿色的话就无解了.
至少也得能运行安装包吧.
真要害怕弄坏系统的话可以先做个GHOST备份一下么.
不过这种担忧基本上都是不必要的.