在DataGrid如何不能显示记录

在DataGrid怎么不能显示记录
我在窗体中添加一个DataGrid控件,想在其中显示记录,代码如下

dim   conn   As   New   ADODB.Connection
dim   rs1   As   New   ADODB.Recordset
 
Set   conn   =   New   ADODB.Connection
       
        conn.Open   DBstrCnn
       
        Set   rs1   =   New   ADODB.Recordset
        rs1.CursorType   =   adUseClient

        rs1.Open   "select   *   from   personTable   ",   conn,   adOpenKeyset,   adLockOptimistic
        Set   DataGrid1.DataSource   =   rs1
        DataGrid1.Refresh

可是记录并没有显示,同样的方法在其它有的窗体中又可以显示，不知道什么原因，请高手指点

[解决办法]
conn.CursorType = adUseClient '--加一句，看看
conn.Open DBstrCnn