reslutat fra Stored Procedure til ADO recordset

Hej,

Jeg har lavet en procedure der skulle kunne overføre resultatet fra en stored procedure udført på SQL-server til et recordset. Koden ses nedenfor. Jeg kan se i profileren, at stored procedure køres, men resultatet overføres ikke som forventet til recordsettet. Hvad mangler jeg

på forhånd tak



Private Sub GetValues()
Dim rs As New ADODB.Recordset
Dim Cmd As New ADODB.Command
Dim conn As New ADODB.Connection
Dim cnn As String

cnn = "File Name=" & ThisWorkbook.Path & "\OBH.udl"
conn.Open cnn

Set Cmd.ActiveConnection = conn
Cmd.CommandText = "spgetvalues"
Cmd.CommandType = adCmdStoredProc
Cmd.Parameters.Refresh
Cmd.Parameters(1) = "1150"
Set rs = Cmd.Execute()
MsgBox rs.RecordCount
conn.Close
Set rs = Nothing
End Sub