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

Question

我在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中无法显示记录，感觉好象没棒定一样。请高手指点！谢谢

Answer 1

rs.CursorLocation = adUseClient

Answer 2

rs.CursorLocation = adUseClient