executing stored procedure via QTP

[smita godbole]

Hi,
Can any one tell me how to execute stored procedure? We are using SQL server. In the QTP script I am capturing Session ID from URL and then passing it to Stored procedure but unfortunately after successful db connection I couldn't executed stored procedure the way I wanted.
Following is the code to see what I am doing ...

Code:

s =Browser()Page(":").Link("Please click here to view").GetROProperty("URL") 'msgbox s StrSession = mid(s,87,23) Reporter.ReportEvent micDone, "Value check", strObject & " value is equal to " & strSession & "." Dim Conn, Cmd, oRs Set Conn = CreateObject("ADODB.Connection") Conn.CursorLocation = 3 Set Cmd = CreateObject("ADODB.Command") Conn.Open"Description=for QTP testing;DRIVER=SQL Server;SERVER=xxxx;UID=xxxx;APP=QuickTest Professional;WSID=xxxx;Trusted_Connection=Yes" Cmd.ActiveConnection = Conn ' Set the command type to Stored Procedures Cmd.CommandText = xxxx(Name of stored procedure) Cmd.CommandType = 4 msgbox StrSession If StrSession=SessionId Then Cmd.Parameters("@SessionId").Value =StrSession Set oRs=Cmd.Execute() Dim RecordSetCounter, TotalNumberofRecords TotalNumberofRecords = oRs.RecordCount msgbox TotalNumberofRecords msgbox Cmd.Parameters("SessionId").Value Dim SurveyId,SessionID,MemberID SurveyId=oRs.fields(0).value 'Reporter.ReportEvent micDone, "Value check", strObject & " value is equal to " & SurveyId & "." msgbox SurveyId SessionID=oRs.fields(1).value 'Reporter.ReportEvent micDone, "Value check", strObject & " value is equal to " & SessionID & "." msgbox SessionID MemberID=oRs.fields(2).value 'Reporter.ReportEvent micDone, "Value check", strObject & " value is equal to " & MemberID & "." msgbox MemberID End If Conn.Close Set Conn=Nothing

Will appreciate your help.
Thanks
Smita