Output parameter in "Find Duplicate " query of access

[BSB]

Hi,

I generate a "Find Duplicate" query for one table that will return some records
I want to capture those records in my VB code.....

This is my code...pls guide me how to proceed....
*************** *************** *************** *************** *************** ************

adocmd.CommandT ext = sQueryName
adocmd.CommandT ype = adCmdStoredProc
adocmd.ActiveCo nnection = "Provider=Micro soft.Jet.OLEDB. 4.0;Data Source=C:\My Documents\Acces s\Data\ARG_Proj ect2_Access\War ranty.mdb"
' "Provider=Micro soft.Jet.OLEDB. 4.0;Data Source=C:\My Documents\Acces s\Data\ARG_Proj ect2_Access\War rantyDEVSQL.mdb ;Persist Security Info=False"


'************** ****
'Create 2 output parameters
Set objPara = adocmd.CreatePa rameter("[Type]", adVarChar, adParamReturnVa lue, 50)
Set objpara2 = adocmd.CreatePa rameter("[Unit Ser No]", adVarChar, adParamReturnVa lue, 255)

'Append the output parameters to command object
adocmd.Paramete rs.Append objPara
adocmd.Paramete rs.Append objpara2

'Store the result in a recordset
Set rsAdo = adocmd.Execute


'Open the recordset

liArray = 1
Do While Not rsAdo.EOF
objPara(liArray ) = rsAdo.Fields.It em("Type").Valu e
objpara2(liArra y) = rsAdo.Fields.It em("Unit Ser No").Value
liArray = liArray + 1
rsAdo.MoveNext
Loop

'Close the recordset
rsAdo.Close
*************** **********

I get this error when i run

"-2147217887 : Multiple-step OLE DB operation generated errors. Check each OLE DB status value, if available. No work was done."