vsflexgride存储过程问题

我用vsflexgrid控件,使用recordset记录集,当设置recordset.open  "select  *  from  TABLE"时,设置vsflexgrid.datasource=recordset时,可以正确显示数据;  
  但当我的记录集为存储过程的执行结果是,即set  recordset=command.execute,再设置vsflexgrid.datasource=recordset时,无法显示数据; 表格显示空白，字段名可以显示 。 
1，数据库为sql2000 
2,控件为vsflexgride8 

请高手帮忙解答？ --------------------编程问答-------------------- connection对象要用客户端游标连接.... --------------------编程问答-------------------- 游标设置了，还是不行。这是我部分代码，点查询后数据应该是可以调出来，但是在表格中不显示
OpenCn
Set rs = New ADODB.Recordset
 rs.CursorLocation = adUseClient
Set cmd = New ADODB.Command
With cmd
          .ActiveConnection = Cn
          .CommandType = adCmdStoredProc
          .CommandText = "lyx"                         
          .Parameters("@ney") = "有余额"         
          .Execute                                              
          Set rs = .Execute                        
End With
VSFlexGrid1.VirtualData = False
Set VSFlexGrid1.DataSource = rs
          --------------------编程问答-------------------- dim cn as connection
set cn=new connevtion
cn.CursorLocation = adUseClient
.....  --------------------编程问答-------------------- 谢谢你啊，问题解决了。就是这个原因。

补充：VB ,  数据库(包含打印，安装，报表)