关于ＡＤＯ与ＤＡＴＡＧＲＩＤ的问题

Question

我的代码如下，为什么ＤＡＴＡＧＲＩＤ中不显示内容
Option Explicit
Dim cat As New ADOX.Catalog 
Dim conn As New ADODB.Connection
Dim RS As New ADODB.Recordset
Dim pstr As String 
Dim RS As ADODB.Recordset
Dim strsql As String
pstr = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & App.Path & "\feita.mdb;Persist Security Info=False"
conn.Open pstr
Set RS = New ADODB.Recordset
strsql = "select * from k"
RS.Open strsql, conn, adOpenKeyset, adLockOptimistic, adCmdText
RS.Close
conn.Close
Set DataGrid1.DataSource = RS
DataGrid1.Refresh

Answer 1

rs都关了怎么还会有东西。。先去掉：
RS.Close
conn.Close
看看吧。

Answer 2

我的代码如下，为什么ＤＡＴＡＧＲＩＤ中不显示内容
Option Explicit
Dim cat As New ADOX.Catalog 
Dim conn As New ADODB.Connection
Dim RS As New ADODB.Recordset
Dim pstr As String 
Dim RS As ADODB.Recordset
Dim strsql As String
pstr = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & App.Path & "\feita.mdb;Persist Security Info=False"
conn.Open pstr
Set RS = New ADODB.Recordset
strsql = "select * from k"
RS.Open strsql, conn, adOpenKeyset, adLockOptimistic, adCmdTextSet DataGrid1.DataSource = RS
DataGrid1.Refresh
RS.Close:set rs=nothing
conn.Close:set conn=nothing

Answer 3

如果还不行的话,
conn.CursorLocation = adUseClient

Answer 4

退出程序在
RS.Close:set rs=nothing
conn.Close:set conn=nothing

Answer 5

RS  不能关闭     你需要的是  "脱机" 显示?  就SAVE RS 到本地目录