different 5 condition is a=1,2,3,4,5

in button click

we write

if a=1 then

Dim report as new cr_1

cr_1.show

else

Dim report as new cr_2

cr_2.show

else

Dim report as new cr_3

cr_3.show

else

Dim report as new cr_4

cr_4.show

else

Dim report as new cr_5

cr_5.show

end