Better way to utilize my form

I have a user go into a Form which allows the user to select a BusinessGroup
with a combo box. Then the user has a command button on the form which
launches an event procedure.

What happens 1st is:

An expression in a Query that says [Enter a YearMonthValue: yyyymm] (comes
via a msgbox)
Then the following code is executed:

Private Sub cmd_OpenReport_Click()

DoCmd.OpenReport "BusinessGroupReport_rpt", acViewPreview, , "[Business
Group I] = '" & Me.cbxBusinessGroup & "'"
DoCmd.RunCommand acCmdPrint

End Sub

This works fine, but is there a better way?

---I’d like for the user to 1st enter the YearMonthValue in a text box on my
form, then select a BusinessGroup in the ComboBox. Then use a command Button
to use both the text box and the combo box data as filters to OpenReport.