=====关于手动声明的ADO和记录集对象和DataGrid控件绑定的问题====

Question

这个问题在 基础类 已经问了好几次都没有解决，我已经送出去好多分，希望这个版的朋友能帮忙解决问：怎样才可以将datagrid的每个字段和记录集的字段绑定，我不想和ado控件绑定，我是手动声明的记录集
我大概写的代码如下，能执行可是没有效果，也就是datagrid控件没有显示Dim cnn As ADODB.Connection
Dim rs As ADODB.Recordset
Set cnn = New ADODB.Connection
Set rs = New ADODB.Recordset
cnn.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;" & _
                       "data source=" & App.Path & "\kucun.mdb"
cnn.Open
rs.CursorType = adOpenStatic
rs.LockType = adLockPessimistic
rs.Open "select * from zkc", cnn
Set DGrid.DataSource = rs
DGrid.Columns(0).DataField = "cpmc"
我想大家能明白我的意思了吧！尤其是最后一句，谢谢帮忙解决，很急

Answer 1

呵呵，你只要倒过来写不就OK了
DGrid.Columns(0).DataField = "cpmc"
Set DGrid.DataSource = rs
'Go

Answer 2

DGrid.Columns(0).DataField = "cpmc"
Set DGrid.DataSource = rs

Answer 3

报歉测试结果如下：
在已经传入了记录集的DataGrid上设变字段，目前我做不到，基本上不可能。
想要按我们的要求顺序传入的话只有两种办法
1.在记录集上
  rs.Open "select zd1,zd2,zd3,zd4 from zkc", cnn
  传入DataGrid后就会按着记录集的顺序显示，如何不想要显示某一列时只需
  DataGrid1.Columns("指定系的字段").Visible =False
2.在设计DataGrid时写入字段

Answer 4

If rs.RecordCount <> 0 Then
            Set DataGrid1.DataSource = rs
                DataGrid1.Refresh
         End If