Please help me!

Why this code doesn't work:

Dim Qd As Querydef, Rs as Recordset
Data1.RecordSource = "Titles"
Data1.Refresh

Set Qd = Data1.Database.QueryDefs("MyParameterQuery")
Qd.Parameter("Enter State")= "WA"

Set Rs = Qd.Openrecordset(Qd,dbOpenDynaset)
Set Data1.Recordset = Rs

This code is from VB4's help item:

Using Parameter Queries With the Data Control Example.

Does it need some extra code ?