关于datagride 的问题

Question

看代码:
Private Sub Command1_Click()
strsql = "select * from sample_result_detail2 "
rs.ActiveConnection = cnn
rs.CursorType = adOpenKeyset
rs.CursorLocation = adUseClient
rs.LockType = adLockOptimistic
rs.Open strsql
Set DataGrid1.DataSource = rs
DataGrid1.Refresh
cnn.Close
End Sub
为什么 第一次单击时 DataGrid1有内容
再次单击时 却 没有 内容了
是代码连数据库的问题 
还是 DataGrid1 的问题

Answer 1

呵呵，只针对你的代码而言，你在代码末端关闭了数据库连接对象cnn
当你下次点击时cnn已经没有连接到任何数据库，当然没有内容了
cnn.close 句删掉就好了

Answer 2

我用的是access数据库
代码如下:
set conn = new adodb.connection
conn.open connectstr(连接字串)
set rs = new adodb.recordset
rs.open "select * from 数据库",conn,1,1
set datagrid1.datasource = rs
为什么显示不出来数据
但是同样的代码用sql数据库就没问题