this works for me,
Private Sub Command30_Click()
Dim strReportName As String
Dim strCriteria As String
strReportName = "Orders"
strCriteria = "[OrderNo]='" & Me![OrderNo] & "'"
DoCmd.DoMenuItem acFormBar, acRecordsMenu, acSaveRecord, , acMenuVer70
DoCmd.OpenReport strReportName, acViewPreview, , strCriteria
End Sub