为什么DATAGRID棒定数据库后无法显示记录？

[cloud1002]

我在FORM中增加了2个控件，一个是datagrid一个是mshflexgrid
代码如下：
Private Sub Form_Load()
Dim cn As New ADODB.Connection
Dim rs As New ADODB.Recordset
Dim str As String
str = "select id,书id,数量,进货价格,进货日期 from 进货"
cn.ConnectionString = "PROVIDER=Microsoft.Jet.OLEDB.4.0;DATA SOURCE=" & App.Path & "/book.mdb"
cn.Open
rs.Open str, cn, 1, 1

Set DataGrid1.DataSource = rs
Set MSHF1.DataSource = rs
End Sub

为什么mshf1中能正常显示记录，而datagrid中无法显示记录，感觉好象没棒定一样。请高手指点！谢谢

[LichKingSZ]

rs.CursorLocation = adUseClient

[cloud1002]

搞定，结帖，谢谢

[yoki]

rs.CursorLocation = adUseClient