vb获取sql server存储过程返回的结果集

我来解答。
Create PROCEDURE [dbo].[Test]
AS
BEGIN
set nocount on--关闭掉 受影响记录行数的消息 就行了
select * from abc
END

1 用ado,连接字符串参考下面代码.
dim sA as string

'ip方式
sA = "Provider=SQLOLEDB; Data Source= dbServer ,1433; Network Library=DBMSSOCN; ;Initial Catalog= dbDataBaseName ;User ID= dbUserName ;Password= dbPassWord"
‘计算机名方式
sA = "Provider=SQLOLEDB;Data Source=dbServerName;Initial Catalog=dbDataBaseName ;User ID= dbUserName ;Password= dbPassWord“

2 打开联接后不要用command,用cn
rs=cn.execute(”test()“)
’有参数的例子
rs=cn.execute(”test（1,22,’abc‘）“)