求助!!连接数据库出现的问题

Question

工程都落幕了结果最后出现这样问题：
用ADO控件属性connectionstring直接连接数据库时，邦定于该数据库控件的datagrid能显示出数据来
但问题是ADO控件的数据连接是固定的`所以改用对象进行连接`代码如下Dim db As Connection
Dim ado As Recordset
Set db = New Connection
Set ado = New Recordset
db.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & App.Path _& "\db1.mdb;Persist Security Info=False"
ado.Open "select * from man", db, adOpenDynamic, adLockOptimistic
Set Adodc1.Recordset = ado连接是成功了``但datagrid网格数据控件却没有任何的数据``TEXT之类的控件邦定于ADO控件时都能显示。。请问如何解决~~

Answer 1

Adodc1.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & App.Path _& "\db1.mdb;Persist Security Info=False"        Adodc1.RecordSource = "select * from man"
        Adodc1.Refresh
        Set DataGrid1.DataSource = Adodc1
        DataGrid1.Refresh

Answer 2

请参考
http://expert.csdn.net/Expert/topic/2710/2710006.xml?temp=8.526248E-02