Parameter Queries, Professional Features Book 2 Page 97

How can I use the results (Parameter Names) I got from the <query.ListParameters> Method 
to set these Parameters (without knowing the names of the Parameters before)?

Example:

  Dim dbsTest As database
  Dim qryTest As querydef
  Dim snpParameters As snapshot

  Set dbsTest = OpenDatabase("F:\PCS\ACCESS\DB1.MDB")
  Set qryTest = dbsTest.OpenQueryDef("AfArtJr_DB_Parm")
  Set snpParameters = qryTest.LiestParameters()
  do until snpParamters.EOF
    ... ???? ...    
    snpParameters,MoveNext
  loop 

     qryTest![Name of Parameter 1] = 1993
     qryTest![Name of Parameter 2 = "11200113037"

Thanks, Jurgen
