Allora vai a gestire l'evento AfterUpdate della ComboBox e dirotta il Report da aprire
Private Sub NomeCombo_AfterUpdate()
Dim strREP as String
Select Case Me!NomeCombo.Value
Case IS="Selezione1"
strREP="Report1"
Case IS="Selezione2"
strREP="Report2"
ecc.... fino al 4°
End Select
Docmd.OpenReport strREP
End Sub
Ciao
@Alex