質問: d(1, i) Then cr.WriteLine Exit For End If Next Loop
回答: データベース(SQL)の概念として順番というものは存在しません。 (一般的な話であって該当しないDBもあるかもしれませんが) SELECT時に明示的にORDER BYで順序を決定するものです。 なので、CSVファイルに対し、1行目を上位とするのであれば、SQLで抽出するのではなく、VBScriptのコードでCSVファイルを読み込み、日付とIDから除外するレコードを決定するべきです。 逆にSQLを使うのであれば、ORDER BYで論理的に順番を決定できる情報があるなら使用可能です。 今回のデータの場合、actionが名前の順というわけではないようですので、SQLではどうにもなりません。