如何优化这段代码!!!

If Requery2 <>"" And Requery5<>"" then
     StrSelect ="Select top 50 * from sc2001 where  省地县码 like '%"& Requery2 &"%' "& DropList2 &" 产品2 like '%"& Requery5 &"%'"
     End If    
     If Requery2 <>"" And Requery3<>"" And Requery5<>"" then
     StrSelect ="Select top 50 * from sc2001 where  省地县码 like '%"& Requery2 &"%' "& DropList2 &" 行业类别 like '%"& Requery3 &"%' "& DropList3 &"  产品2 like '%"& Requery5 &"%'"
     End If
     If Requery2 <>"" And Requery4<>"" And Requery5<>"" then
     StrSelect ="Select top 50 * from sc2001 where  省地县码 like '%"& Requery2 &"%' "& DropList2 &" 产品1 like '%"& Requery4 &"%' "& DropList4 &"  产品2 like '%"& Requery5 &"%'"
     End If
     If Requery2 <>"" And Requery3<>"" And Requery4<>"" And Requery5<>"" then
     StrSelect ="Select top 50 * from sc2001 where  省地县码 like '%"& Requery2 &"%' "& DropList2 &" 行业类别 like '%"& Requery3 &"%' "& DropList3 &"  产品1 like '%"& Requery4 &"%' "& DropList4 &"  产品2 like '%"& Requery5 &"%'"
     End If
     If Requery3 <>"" And Requery5<>"" then
     StrSelect ="Select top 50 * from sc2001 where  行业类别 like '%"& Requery3 &"%' "& DropList2 &" 产品2 like '%"& Requery5 &"%'"
     End If 
     If Requery3 <>"" And Requery4<>"" And Requery5<>"" then
     StrSelect ="Select top 50 * from sc2001 where  行业类别 like '%"& Requery3 &"%' "& DropList3 &" 产品1 like '%"& Requery4 &"%' "& DropList4 &"  产品2 like '%"& Requery5 &"%'"
     End If
     If Requery4 <>"" And Requery5<>"" then
     StrSelect ="Select top 50 * from sc2001 where  产品1 like '%"& Requery4 &"%' "& DropList2 &" 产品2 like '%"& Requery5 &"%'"
     End If
                        
     If Requery6 <>"" Then
     StrSelect ="Select top 50 * from sc2001 Where 产品3 like '%"& Requery6 &"%'"
     End If
     If Requery1 <>"" And Requery6<>"" then
     StrSelect ="Select top 50 * from sc2001 where 法人单位 like '%"& Requery1 &"%' "& DropList1 &" 产品3 like '%"& Requery6 &"%'"
     End If
     If Requery1 <>"" And Requery2<>"" And Requery6<>"" then
     StrSelect ="Select top 50 * from sc2001 where 法人单位 like '%"& Requery1 &"%' "& DropList1 &" 省地县码 like '%"& Requery2 &"%' "& DropList2 &" 产品3 like '%"& Requery6 &"%'"
     End If
     If Requery1 <>"" And Requery2<>"" And Requery3<>"" And Requery6<>"" then
     StrSelect ="Select top 50 * from sc2001 where 法人单位 like '%"& Requery1 &"%' "& DropList1 &" 省地县码 like '%"& Requery2 &"%' "& DropList2 &" 行业类别 like '%"& Requery3 &"%' "& DropList3 &" 产品3 like '%"& Requery6 &"%'"
     End If
     If Requery1 <>"" And Requery2<>"" And Requery3<>"" And Requery4<>"" And Requery6<>"" then
     StrSelect ="Select top 50 * from sc2001 where 法人单位 like '%"& Requery1 &"%' "& DropList1 &" 省地县码 like '%"& Requery2 &"%' "& DropList2 &" 行业类别 like '%"& Requery3 &"%' "& DropList3 &" 产品1 like '%"& Requery4 &"%' "& DropList4 &" 产品3 like '%"& Requery6 &"%'"
     End If
     If Requery1 <>"" And Requery2<>"" And Requery3<>"" And Requery4<>"" And Requery5<>"" And Requery6<>"" then
     StrSelect ="Select top 50 * from sc2001 where 法人单位 like '%"& Requery1 &"%' "& DropList1 &" 省地县码 like '%"& Requery2 &"%' "& DropList2 &" 行业类别 like '%"& Requery3 &"%' "& DropList3 &" 产品1 like '%"& Requery4 &"%' "& DropList4 &" 产品2 like '%"& Requery5 &"%' "& DropList5 &" 产品3 like '%"& Requery6 &"%'"
     End If
     If Requery2 <>"" And Requery6<>"" then
     StrSelect ="Select top 50 * from sc2001 where 省地县码 like '%"& Requery2 &"%' "& DropList1 &" 产品3 like '%"& Requery6 &"%'"
     End If
     If Requery2 <>"" And Requery3<>"" And Requery6<>"" then
     StrSelect ="Select top 50 * from sc2001 where 省地县码 like '%"& Requery2 &"%' "& DropList2 &" 行业类别 like '%"& Requery3 &"%' "& DropList3 &" 产品3 like '%"& Requery6 &"%'"
     End If
     If Requery2<>"" And Requery3<>"" And Requery4<>"" And Requery6<>"" then
     StrSelect ="Select top 50 * from sc2001 where 省地县码 like '%"& Requery2 &"%' "& DropList2 &" 行业类别 like '%"& Requery3 &"%' "& DropList3 &" 产品1 like '%"& Requery4 &"%' "& DropList4 &" 产品3 like '%"& Requery6 &"%'"
     End If
     If Requery2<>"" And Requery3<>"" And Requery4<>"" And Requery5<>"" And Requery6<>"" then
     StrSelect ="Select top 50 * from sc2001 where 省地县码 like '%"& Requery2 &"%' "& DropList2 &" 行业类别 like '%"& Requery3 &"%' "& DropList3 &" 产品1 like '%"& Requery4 &"%' "& DropList4 &" 产品2 like '%"& Requery5 &"%' "& DropList5 &" 产品3 like '%"& Requery6 &"%'"
     End If
     If Requery3<>"" And Requery6<>"" then
     StrSelect ="Select top 50 * from sc2001 where 行业类别 like '%"& Requery3 &"%' "& DropList3 &" 产品3 like '%"& Requery6 &"%'"
     End If
     If Requery3<>"" And Requery4<>"" And Requery6<>"" then
     StrSelect ="Select top 50 * from sc2001 where 行业类别 like '%"& Requery3 &"%' "& DropList3 &" 产品1 like '%"& Requery4 &"%' "& DropList4 &" 产品3 like '%"& Requery6 &"%'"
     End If
     If Requery3<>"" And Requery4<>"" And Requery5<>"" And Requery6<>"" then
     StrSelect ="Select top 50 * from sc2001 where 行业类别 like '%"& Requery3 &"%' "& DropList3 &" 产品1 like '%"& Requery4 &"%' "& DropList4 &" 产品2 like '%"& Requery5 &"%' "& DropList5 &" 产品3 like '%"& Requery6 &"%'"
     End If
     If Requery4<>"" And Requery6<>"" then
     StrSelect ="Select top 50 * from sc2001 where 产品1 like '%"& Requery4 &"%' "& DropList4 &" 产品3 like '%"& Requery6 &"%'"
     End If  
     If Requery4<>"" And Requery5<>"" And Requery6<>"" then
     StrSelect ="Select top 50 * from sc2001 where 产品1 like '%"& Requery4 &"%' "& DropList4 &" 产品2 like '%"& Requery5 &"%' "& DropList5 &" 产品3 like '%"& Requery6 &"%'"
     End If
     If Requery5<>"" And Requery6<>"" then
     StrSelect ="Select top 50 * from sc2001 where 产品2 like '%"& Requery5 &"%' "& DropList5 &" 产品3 like '%"& Requery6 &"%'"
     End If   
                              
If Requery1 ="" and Requery2="" and Requery3="" and Requery4 ="" and Requery5="" and Requery6 =""then
str="<br><br><br><center>"
str+="<font size=2>您没有输入查询条件，请输入查询条件！<a href='javascript:history.go(-1)'>按此返回</a></font>"
str+="</center>"
Response.Write(str)
Response.End
    End If
     Dim MySqlConnection As SqlConnection
Dim Ds As DataSet
Dim myCommand As SqlDataAdapter
mySqlConnection = New SqlConnection(ConfigurationSettings.AppSettings().Item("ConnectionString"))
     MySqlConnection.Open()
myCommand = new SqlDataAdapter(StrSelect,mySqlConnection)
Ds = New DataSet()
myCommand.Fill(Ds,"sc2001")
myDataGrid.DataSource = Ds.Tables("sc2001").DefaultView
     MyDataGrid.DataBind()
    End Sub
巨长呀。。谁来优化一下！