VB DataGrid的有关问题

VB DataGrid的问题
Private   Sub   Form_Load()
        Dim   con   As   ADODB.Connection   '   建立连接没问题
        Dim   rs   As   ADODB.Recordset
       
        Dim   rs   As   ADODB.Recordset
        Set   con   =   New   ADODB.Connection
        con.ConnectionString   =   "Provider=Microsoft.Jet.OLEDB.4.0;Data   Source= "   &   App.Path   &   "\db1.mdb;Persist   Security   Info=False "
        con.Open
        Set   rs   =   New   ADODB.Recordset
        rs.Open   "select   *   from   tab ",   con,   adOpenDynamic,   adLockOptimistic,   adCmdText
        DataGrid1.DataSource   =   rs
       
End   Sub


------------------------------------------------
这样datagrid显示不出信息来,我会用   adodc绑,我想试试纯代码绑.谁能教几招?


[解决办法]
set DataGrid1.DataSource = rs