DoCmd.OpenReport "rptResults", acViewPreview, , , acDialog, strPRC = "Me.cbo1ID|Me.cbo2ID|Me.cbo3ID"
as you originally had in the open event.
Then you would use the code already posted
Private Sub Report_Open(Cancel As Integer)
Dim varSplitString as Variant
varSplitString =...