ASP.NET

<asp:DropDownList ID="DropDownList1" runat="server" AutoPostBack="true"
 OnSelectedIndexChanged="DropDownList1_SelectedIndexChanged">
     <asp:ListItem></asp:ListItem>
     <asp:ListItem Value="Pelanggan Rumah"></asp:ListItem>
     <asp:ListItem Value="Kios Air"></asp:ListItem>
</asp:DropDownList>

<asp:TextBox ID="CariText" runat="server" Width="100px" Height="23px" CssClass="text_boxt_search"></asp:TextBox>

<asp:Button ID="Find" runat="server" Text="Search" Width="61px" CssClass="style105"  Height="25px" />


<asp:SqlDataSource ID="SqlDataSourceCustomer" runat="server" 
    ConnectionString="<%$ ConnectionStrings:ATBGISMAPDBConnectionString %>" 
    SelectCommand="SELECT * FROM [DBCUSTOMER] WHERE ([CUST_NAME] LIKE '%' + @CUST_NAME + '%')">
    <SelectParameters>
    <asp:ControlParameter ControlID="CariText" Name="CUST_NAME" PropertyName="Text" Type="String" />
    </SelectParameters>
</asp:SqlDataSource>

<asp:SqlDataSource ID="SqlDataSourceKiosk" runat="server" 
    ConnectionString="<%$ ConnectionStrings:ATBGISMAPDBConnectionString %>" 
    SelectCommand="SELECT * FROM [KIOSK] WHERE ([Cust_Name] LIKE '%' + @Cust_Name + '%')">
    <SelectParameters>
    <asp:ControlParameter ControlID="CariText" Name="Cust_Name" PropertyName="Text" Type="String" />
    </SelectParameters>
</asp:SqlDataSource>

Public Sub DropDownList1_SelectedIndexChanged(ByVal sender As Object, ByVal e As System.EventArgs) Handles DropDownList1.SelectedIndexChanged
        Dim strConnect As String = Nothing
        strConnect = Session("Data Source=192.168.1.88;Initial Catalog=ATBGISMAPDB;Persist Security Info=True;User ID=gis;Password=Pa5word@tb")

        Dim a As String = "SqlDataSourceCustomer"
        Dim b As String = "SqlDataSourceTank"
        Dim c As String = "SqlDataSourceKiosk"
        Dim d As String = "Pipa"

        If DropDownList1.SelectedItem.Value = a Then
            Query = "SELECT * FROM DBCUSTOMER where a = '" & LabelDDL.Text & "'"
        ElseIf DropDownList1.SelectedItem.Value = c Then
            Query = "SELECT * FROM KIOSK where c = '" & LabelDDL.Text & "'"
        End If
    End Sub