Operação OLE DB de várias etapas gerou erros

Ola a todos eu estou com um codigo que esta dando sequinte erro

Microsoft OLE DB Provider for ODBC Drivers (0x80040E21)

Operação OLE DB de várias etapas gerou erros. Verifique cada valor de status OLE DB. Nada foi executado

O codigo e o sequinte

CODE

Set Recordset = Server.CreateObject("ADODB.Recordset")

Set CMD=Server.CreateObject("ADODB.Command")

CMD.CommandType=1

 cmd.commandtext="Select * from tabela where id= ?"

 cmd.Parameters.Append = cmd.CreateParameter("P1",3,1)

 cmd.Parameters("P1").value=PrParam.Value(0) ''Um objeto que tem o valor do parametro

 set RecordSet=cmd.Execute

O banco e um Sql Server 2005, se alguem puder ajudar, fico grato