DataGrid绑定数据问题

[joezhan]

Public con As New ADODB.Connection
Public rs As New ADODB.Recordset

conStr = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" + App.Path & "\info.mdb" + ";Persist Security Info=False"
con.Open conStr

rs.CursorLocation = adUseClient
dgStr = "Select * From [NP_Magzine]"
rs.Open dgStr, con, 3, 3

Set dg.DataSource = rs
For i = 0 To 1
dg.Columns(i).DataField = rs.Fields(i).Name
Next i

注：DataGrid控件名称为dg

上述代码运行后，DataGrid能显示数据库相应记录条数的空白行，但无内容。

尝试用TextBox文本框和rs绑定，能正常显示数据

请各位朋友帮忙,谢谢！

[joezhan]

怎么没人帮忙啊？

[skysyan]

问题出在这句：
For i = 0 To 1
dg.Columns(i).DataField = rs.Fields(i).Name
Next i

[cangwu_lee]

Set dg.DataSource = rs

For i = 0 To 1
dg.Columns(i).DataField = rs.Fields(i).Name
Next i

顺序倒过来。试试看

For i = 0 To 1
dg.Columns(i).DataField = rs.Fields(i).Name
Next i

Set dg.DataSource = rs

[joezhan]

这个问题解决了，不知道问题出在哪儿！新建了个工程就行了！谢谢大家解答，现在还有一个疑惑！

我现在需要用网格显示数据，而且有一列可以更新，我说的更新意思是：可以鼠标定位某一格更改其值，但并不在数据库里执行Update操作，如何实现？

[LuBingLin]

rs.Open dgStr, con, 3, 3

改成

rs.Open dgStr, con,adOpenKeyset, adLockOptimistic

别把一些常数写成数字！！！这是非常不好的习惯！