请指点：为什么我的datagrid1控件中没有数据表的内容呢？

[yedapeng]

Dim cnn As ADODB.Connection
Dim rs As ADODB.Recordset
Private Sub Form_Load()
Set cnn = New ADODB.Connection
Set rs = New ADODB.Recordset
Dim strSql As String
cnn.ConnectionString = "Provider=SQLOLEDB.1;Integrated Security=SSPI;Persist Security Info=False;Initial Catalog=yedapeng;Data Source=YEDAPENG"
cnn.Open
rs.CursorLocation = adUseClient
rs.CursorType = adOpenKeyset
rs.LockType = adLockOptimistic
Select Case cnn.State
Case adStateClosed
MsgBox "adstateclosed"
Case adStateOpen
MsgBox "adstateopen"
End Select
strSql = "select * from gequ"
rs.Open "select * from gequ", cnn
Set DataGrid1.DataSource = rs
rs.Close
cnn.Close
End Sub

[bacp]

晕~
一点注解都没有~
看的都费神

[yedapeng]

谢谢提醒！

[welcome704]

看一下你的记录集总值是多少，告诉我我再对你说

[yedapeng]

我已经解决了；谢谢你们