In your code that opens the report:
If monkey Then
DoCmd.OpenReport "Report", acViewPreview, , , , "qryMonkey"
Else
DoCmd.OpenReport "Report", acViewPreview, , , , "qryBanana"
End If
In the Open event of the report:
Private Sub Report_Open(Cancel As Integer)
Me.RecordSource =...