DataGrid绑定数据问题

Question

Public con As New ADODB.Connection
Public rs As New ADODB.RecordsetconStr = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" + App.Path & "\info.mdb" + ";Persist Security Info=False"
con.Open conStrrs.CursorLocation = adUseClient
dgStr = "Select * From [NP_Magzine]"
rs.Open dgStr, con, 3, 3Set dg.DataSource = rs
For i = 0 To 1
    dg.Columns(i).DataField = rs.Fields(i).Name
Next i注：DataGrid控件名称为dg上述代码运行后，DataGrid能显示数据库相应记录条数的空白行，但无内容。尝试用TextBox文本框和rs绑定，能正常显示数据请各位朋友帮忙,谢谢！

Answer 1

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

Answer 2

Set dg.DataSource = rsFor 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 iSet dg.DataSource = rs

Answer 3

这个问题解决了，不知道问题出在哪儿！新建了个工程就行了！谢谢大家解答，现在还有一个疑惑！我现在需要用网格显示数据，而且有一列可以更新，我说的更新意思是：可以鼠标定位某一格更改其值，但并不在数据库里执行Update操作，如何实现？

Answer 4

rs.Open dgStr, con, 3, 3 改成 rs.Open dgStr, con,adOpenKeyset, adLockOptimistic别把一些常数写成数字！！！这是非常不好的习惯！