 <p>The other answers here are similar but ...</p> <pre><code>Sub DiplayData(rst) Response.Write rst.Source End Sub DisplayData rs1 </code></pre> <p>Note <code>Sub</code> not <code>Function</code> since no value is returned. Also where you call a procedure as statement rather than as a function whose value you are assigning to a variable, do not enclose the parameters in ( ).</p>