recordset如何绑定DataEnvironment（不设command）

通过DataEnvironment连接到加密的Access数据库；在DataEnvironment中建立一个connection1 不建立command； 
Private sub DataEnvironment_Initialize( ) 
DataEnvironment1.connection1.connectionstring=“Provider=Microsoft.Jet.OLEDB.4.0;Data Source=& App.path & “\db.mdb;Persist Security Info=False” 
End sub 
---------------------------------------------------------- 
请高人指点窗口语句问题在那？？？如按照就如下语句格式如何修正！谢！ 
DIM rs As NEW adodb.RecordeSet 
Private Sub Form_Load() 
rs.Open "select * from type", DataEnvironment1.connection1 
MSFlexGrid1.sourse=rs 
End Sub
要用 rs.open打开DataEnvironment1.connection1连接 方法 db.mdb中有多个表 --------------------编程问答-------------------- 有回答对者，定当送分30， --------------------编程问答-------------------- 你想做报表吗？

补充：VB ,  数据库(包含打印，安装，报表)