getting records from storedprocedure in recordset in excel vba

[svibuk]

Set cmd = New ADODB.Command

cmd.CommandType = adCmdStoredProc
Set cmd.ActiveConnection = Module1.conn
cmd.CommandText = "spEmergencyItemHelp"

Set prm = cmd.CreateParameter("@ID", adInteger, adParamInput, 255, 12)
cmd.Parameters.Append prm

Set prm = cmd.CreateParameter("@Type", adChar, adParamInput, 255, "A")
cmd.Parameters.Append prm

Set rst = cmd.Execute()
Do Until rst.EOF


Set Sheet1.VSFlexGrid1.DataSource = rst
rst.MoveNext
Loop

i am trying to execute a stored procedure from sql2005 from excel vba get the records in recordset & assign it to grid
but i get error
run time error 3709 application defined or object defined error