It works great if I do it using the snapshot:

    Set MyDB = OpenDatabase("c:\data\mydb.mdb", False, True)
    Set MyQuery = MyDB.OpenQueryDef("get_name")        ' query name
    MyQuery![PED CODE] = "NY"                          ' parameter
    Set MySnap = MyQuery.CreateSnapshot()
    While Not MySnap.EOF
    ....

So I tried the same thing using the data control but it never works:

    Data1.DatabaseName = "c:\data\mydb.mdb"
    Data1.RecordSource = "get_name"               ' my query name
    Data1.Filter = "[PED CODE] = " & PEDCODE      ' parameter
    Data1.Refresh
    Data1.recordset.movefirst
    While Not Data1.recordset.EOF
    ...

This one goes into infinite loop.  It never reaches the EOF mark.

Question:  
Can I be able to open a parameter query using the data control and pass a
parameter to it?  If yes, please show me how.

Any other help would be appreciated.

I only speak for VB3.0 pro, I think it's possible in VB4

As far as I know it's not possible to pass a parameter to access when
you're using the Data Control. I replace the parameter query with a
Sqlquery wich I connect to the Data1.Recordsource. That's the only way I
have managed to solve it and the only thing indicated in this newsgroup
except "SKIP THE DC", I like it but I'm not a very good programmer.

Hope it helped
If you find out a way please let me know.

Anders Bjurestig

You simply cannot use parameter queries with the data control in VB3.
You can do this in VB4 however.

-- Jim F.