If (KeyWord=3) Then Param=Param & " And Author < 1" ElseIf (KeyWord=4) Then Param=Param & " And Author >= 1 And Author<3" ElseIf (KeyWord=5) Then Param=Param & " And Author >= 3 And Author<5" ElseIf (KeyWord=6) Then Param=Param & " And Author >= 5 And Author<10" ElseIf (KeyWord=7) Then Param=Param & " And Author >= 10 And Author<20" ElseIf (KeyWord=8) Then Param=Param & " And Author >= 20" Else Param=Param End If