vb ado调用SQL SERVER存储过程，没有返回结果集

[koa3000]

vb 中代码如下：
……
adocmd.ActiveConnection = m_adoCnn
adocmd.CommandType = adCmdStoredProc
adocmd.CommandText = "Query1 "
Set f_adoRst = adocmd.Execute()
……

SQL SERVER存储过程如下：
CREATE PROCEDURE [dbo].[Query1]
AS

declare @strSql nvarchar(400)
set @strSql ='Select * from x "

exec sp_executesql @strSql
GO

x表中是有记录的，请问这是怎么回事？