Open Report with Where Condition

>I have a button on a form that has the following code under the button:
>
===Begin Code <===
Dim stDocName As String
stDocName = "rptAppraisalForm"
DoCmd.OpenReport stDocName, acPreview, , [id] = Me.id
===End Code <===
>
The problem is that when I click the button it opens all the records in
the data base instead of just the one with the correct id number.
>
How do I correct this?
>
Thanks
Mike
m b charney at sbc global dot net
>