Edit comment Name Title E-mail Website カズ様、遅いレスで申し訳ありません。見てないかもしれませんが、一応回答しておきます。 「And 件名 <> "車検"」を記述する場所が違っています。下記のように変更してください。 Set rs = CurrentDb.OpenRecordset( _ "SELECT 日付, 件名, 社員 FROM T_予定 WHERE " & _ "日付>#" & FirstDay & "# AND 日付<=#" & FirstDay + 42 & "#" & _ " And 件名 <> '車検'", _ dbOpenForwardOnly, dbReadOnly) Password