VBAでQueryに任意の値をパラメータで渡す方法。
　Queryにパラメータを追加し、そのパラメータの値を使ったクエリーを作成する。

VBA側では　以下のように、SetParameterでQueryに渡す値を予め設定後に、対象のクエリーを実行する

For i = 1 To 5
    DoCmd.SetParameter "P_SNO", i　　　　　←　パラメータの値を設定
    DoCmd.OpenQuery "Q_W_請求書INSART"　　←　実行するクエリー

Next

※パラメータの型に注意！
　TEXT型　→　DoCmd.SetParameter "P_SNO", "'" & i & "'"
  DATE型　→　DoCmd.SetParameter "P_SNO", "#" & i & "#"