Access 2003 - ADODB Issue - Passing Parameter values to a recordset with a commond?

Hi All,


Here is my VBA Code , and i am trying to call a commond to open a query with certain parameter values and then with those specified parameters open a recordset. The errors I seem to be getting are as follows:
"Parameter object is improperly defined. Inconsistent or incomplete information was provided."

When I add in the Casting to a String lines to cast the parmeter to String I get the following:
"Item cannont be found in the collection corresponding to the requested name or ordinal"

Has any one got any ideas, please, thanks.

    Dim sSql 'As String
    Dim cn As New ADODB.Connection
    Dim rstReportDetails As New ADODB.RecordSet
    Dim cmd As ADODB.Command
    'create a paramter to hold all values
    Dim ProdId As ADODB.Parameter
    Dim CompId As ADODB.Parameter
    Dim AppNo As ADODB.Parameter
       
    'set values
    Set cn = CurrentProject.Connection
    Set cmd = New ADODB.Command
         
     'get the command object from the query
     With cmd
     .ActiveConnection = cn
     .CommandText = "Select * From qryRptDetails"     'THIS IS A QUERY WITH IN MY FRONT END DB
     .CommandType = adCmdText
     Set ProdId = .CreateParameter("par1")
     Set CompId = .CreateParameter("par2")
     Set AppNo = .CreateParameter("par3")

     'par1 = CStr(cmd.Parameters("par1"))
     'par2 = CStr(cmd.Parameters("par2"))
     'par3 = CStr(cmd.Parameters("par3"))

     .Parameters.Append ProdId
     .Parameters.Append CompId
     .Parameters.Append AppNo

    ' Set ProdId = cmd.Parameters("Forms!crpProduct!AppProductId")
    ' Set CompId = cmd.Parameters("Forms!crpProducts!comCompany")
     'Set AppNo = cmd.Parameters("Forms!crpProducts!txtAppendixNo")
     '.Parameters("par1") = Forms!crpProducts!AppProductId
     '.Parameters("par2") = Forms!crpProducts!comCompany
     '.Parameters("par3") = Forms!crpProducts!txtAppendixNo

     par1.Value = Forms!crpProducts!AppProductId
     par2.Value = Forms!crpProducts!comCompany
     par3.Value = Forms!crpProducts!txtAppendixNo
   'Execute
   End With

   'setting it to a record set
    rstReportDetails.Open cmd


Here is my Access Query that I want to call with in my VBA Code, it is looking for three parametes from the a form.

PARAMETERS Forms!crpProducts!AppProductId Long, Forms!crpProducts!comCompany Long, Forms!crpProducts!txtAppendixNo Long;
SELECT DISTINCT crpProducts.crpProduct_ID AS ProductID, crpProducts.crpProduct_CompanyID AS CompanyID, crpProducts.crpProduct_Description, crpProducts.crpProduct_ActivityDate, crpProducts.crpProduct_AppendixNo AS AppendixNo, crpProductTypes.crpProductType_Name, UnitCategory2Values.unitCat2Name, crpProductLicenseTypes.crpProductLicenseType_crpLicenseTypeID, crpLicenseTypes.crpLicenseType_Name, crpProducts.crpProduct_AgreementDate, crpProducts.crpProduct_IsLicensed, crpProducts.crpProduct_RevisedDate, tblPersonnel.Codes, People.PeopleEmail AS Email
FROM (((((crpProductTypes INNER JOIN crpProducts ON crpProductTypes.crpProductType_ID=crpProducts.crpProduct_crpProductTypeID) INNER JOIN crpProductLicenseTypes ON crpProducts.crpProduct_ID=crpProductLicenseTypes.crpProductLicenseType_crpProductID) INNER JOIN UnitCategory2Values ON crpProductTypes.crpProductType_Category2=UnitCategory2Values.unitCat2ID) INNER JOIN crpLicenseTypes ON crpProductLicenseTypes.crpProductLicenseType_crpLicenseTypeID=crpLicenseTypes.crpLicenseType_ID) INNER JOIN tblPersonnel ON crpProducts.crpProduct_CompanyID=tblPersonnel.CompanyID) INNER JOIN People ON tblPersonnel.PeopleId=People.PeopleId
WHERE (((crpProducts.crpProduct_ID)=(Forms!crpProducts!AppProductId)) And ((crpProducts.crpProduct_CompanyID)=(Forms!crpProducts!comCompany)) And ((crpProducts.crpProduct_AppendixNo)=(Forms!crpProducts!txtAppendixNo)) And ((crpProducts.crpProduct_IsLicensed)=True) And ((tblPersonnel.Codes) Like "%'L'%"))
ORDER BY crpProducts.crpProduct_CompanyID;