عدم اجرای sp

[tempali]

سلام
من در sql یک sp نوشتم که یک جدول مجازی ایجاد می کنه ولی زمانی که sp رو از vb فراخوانی می کنم جواب نمی ده
Public Function funGardesh(PartName)
'On Error Resume Next
' TmpTBL = "tmp" & Format(Time, "HHmmss")
Dim rs2 As ADODB.Recordset
Dim cmd As ADODB.Command
Set cmd = New ADODB.Command
cmd.ActiveConnection = Cnn
cmd.CommandType = adCmdStoredProc
cmd.CommandText = "rrrr2"
cmd.Parameters.Append cmd.CreateParameter("cid", adInteger, adParamInput, 20, Customer_ID)
cmd.Parameters.Append cmd.CreateParameter("pn", adVarChar, adParamInput, 50, PartName)
Set rs2 = cmd.Execute
If Not rs2.EOF Then
MsgBox rs2.Fields(1).Value
Else
MsgBox "nothing"
End If
Set cmd.ActiveConnection = Nothing


CREATE procedure rrrr2(@cid int,@PN varchar(50))
as
declare @T1 table(
Pname char(50) NULL,
PDate char(50) NULL,
DocNo char(50) NULL,
INval int DEFAULT 0,
Outval int DEFAULT 0,
Onhand int DEFAULT 0

) /*ON [PRIMARY]*/
INSERT INTO @T1
(Pname, PDate, INval,docno)
SELECT [part no], [receipt date], [part qty], cast('ورود با سند شماره ' + CAST([receipt no] AS varchar(50))as varchar(50)) AS Expr2
FROM _IN_
WHERE ([part no] = @PN) AND ([customer id] = @cid)

INSERT INTO @T1
(Pname, PDate, outval,docno)
SELECT [part no], [order Date], [part qty],cast('خروج با سند شماره ' + CAST([order no] AS varchar(50))as varchar(50)) AS Expr2
FROM _out_
WHERE ([part no] =@PN) AND ([customer id] = @cid)
begin
select * from @t1
end
GO


لطفا F1

[ENG_Torshani]

این کد درسته مشکلی نداره