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

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