ник: snipe
DoCmd.OpenReport "Oborud", acViewDesign, "", "", acHidden
Reports!Запрос1.RecordSource = "Запрос1"
DoCmd.SetWarnings False
DoCmd.Close acReport, "Oborud"
DoCmd.SetWarnings True
DoCmd.OpenReport "Oborud", acViewPreview, "", "", acNormal
где запрос1 - заранее сохраненный запрос(это его имя), но можно и написать на SQL