vb中使用SQL SERVER存储过程

以下为vb代码片段

Set cm = New ADODB.Command
Set cm.ActiveConnection = conn
cm.CommandType = 4
cm.CommandText = "getListPage"
cm.Parameters("@page") = 1
cm.Parameters("@pagesize") =20

cm.Execute
m_rowcount = CStr(cm.Parameters("@counts"))
m_pagecount = CLng(m_rowcount) \ m_pagesize + 1
Set rs = cm.Execute() '记录集
while not rs.eof
.
代码
.
rs.movenext
wend
上面程序可以返回m_rowcount值,问题是要执行两次cm.Execute

如改为：

Set cm = New ADODB.Command
Set cm.ActiveConnection = conn
cm.CommandType = 4
cm.CommandText = "getListPage"
cm.Parameters("@page") = 1
cm.Parameters("@pagesize") =20
Set rs = cm.Execute()
m_rowcount = CStr(cm.Parameters("@counts"))
m_pagecount = CLng(m_rowcount) \ m_pagesize + 1
while not rs.eof
.
代码
.
rs.movenext

m_rowcount = CStr(cm.Parameters("@counts"))
改
m_rowcount = rs.Count

-_-!! 我不懂VB啦，看你那么急，就帮帮忙～

定义一个function
public function execute(sql)
public cm
execute = cm.Execute(sql)
end function

Set cm = New ADODB.Command
Set cm.ActiveConnection = conn
cm.CommandType = 4
cm.CommandText = "getListPage"
cm.Parameters("@page") = 1
cm.Parameters("@pagesize") =20
Set rs = Execute(sqlstr)
m_rowcount = CStr(cm.Parameters("@counts"))

vb中使用SQL SERVER存储过程 VB 中如何调用SQl Server的存储过程呢？ vb系统中SQL SERVER数据库的数据源连接问题 VB 远程连接 SQL Server vb与SQL server 2000 关于SQL server和vb SQL SERVER中需要使用DATE类型咋办？ SQL Server 2000 中 exist关键字如何使用 在应用程序中使用SQL Server数据的问题 如何使用SQL SERVER 2005