DataGrid绑定数据有关问题

DataGrid绑定数据问题
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绑定，能正常显示数据

请各位朋友帮忙,谢谢！

[解决办法]
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


[解决办法]
rs.Open dgStr, con, 3, 3

改成

rs.Open dgStr, con,adOpenKeyset, adLockOptimistic

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