DoCmd.OpenReport "rep", acViewPreview, , "month = '" & month1 & "'"