In reference to: The code stops on the line: "qdf.Parameters(Parm1) = intVdrProfileID". I get "Item not found in this collection"....

Parm1 needs to be a string variable which is the name of the parameter. Dim Parm1 as string and set it to the name of the parameter.