一个简单问题，datagrid中什么也没显示。在线等

Question

代码如下：
Private Sub Form_Load()
Dim cn As New adodb.Connection
Dim rs As New adodb.Recordset
cn.CursorLocation = adUseClientcn.Open "Provider=SQLOLEDB;Data Source=localhost;User Id=sa;PassWord=12345;Initial Catalog=Northwind"
rs.Open "select * from Employees ", cn
Set DataGrid1.DataSource = rsrs.Closecn.CloseEnd Sub为何执行后datagrid中不显示数据？

Answer 1

rs.Open "select * from Employees ", cn后面的參數呢????rs.Open "select * from Employees ", cn,3,3然后自己報下rs.recordcount
我沒有測試哦﹐你自己試下

Answer 2

Option Explicit
Dim cn As New ADODB.Connection
Dim rs As New ADODB.Recordset
Private Sub Command1_Click()
 Set cn = New Connection
 cn.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=ListenEZ.mdb;Persist Security Info=False"
 cn.CursorLocation = adUseClient
 rs.Open "select * from AddPeople", cn, 3, 3
 Set DataGrid1.DataSource = rs
 
End Sub來不及了﹐自己測試。我這邊要斷了

Answer 3

Thank you!原来要把最后两句去掉。