Protected Sub DRP_DEPT_SelectedIndexChanged(ByVal sender As Object, ByVal e As System.EventArgs) Handles DRP_DEPT.SelectedIndexChanged

        Dim dbcon As SqlConnection
        Dim sqlcmd As SqlCommand
        Dim sqlpar As SqlParameter
        Dim SqlRs As SqlDataReader
        Dim StrSql As String
        Dim str As String


        str = DRP_DEPT.SelectedIndex
        'StrSql = " select * from EST_DISTRICT "
        StrSql = "SELECT DIS_NAME FROM DISTRICTS WHERE DIS_CODE IN(SELECT DIS_CODE FROM EST_DISTRICT WHERE EST_CODE = 'str')"
        'StrSql = "SELECT EST_DISTRICT.EST_CODE,DISTRICTS.DIS_CODE FROM EST_DISTRICT INNER JOIN DISTRICTS ON EST_DISTRICT.DIS_CODE='str' ORDER BY DISTRICTS.DIS_CODE"
        'StrSql = " select DISTRICTS.DIS_NAME,DISTRICTS.DIS_CODE,EST_CODE from DISTRICTS,EST_DISTRICT WHERE EST_CODE=EST_CODE "



        'StrSql = "SELECT DIS_NAME FROM DISTRICTS UNION ALL SELECT EST_CODE FROM EST_DISTRICT WHERE EST_CODE='str'"
        'StrSql=
        dbcon = New SqlConnection(ConfigurationManager.ConnectionStrings("PGConnectionString").ConnectionString)
        sqlcmd = New SqlCommand(StrSql, dbcon)
        sqlcmd.CommandText = StrSql
        sqlcmd.CommandType = CommandType.Text

        dbcon.Open()
        SqlRs = sqlcmd.ExecuteReader()
        DRP_DISTT.DataSource = SqlRs
        DRP_DISTT.DataTextField = "DIS_NAME"
        DRP_DISTT.DataValueField = "DIS_CODE"
        DRP_DISTT.DataBind()
        DRP_DISTT.Items.Insert(0, "ABCghtyhyt")
        sqlcmd.Dispose()
        dbcon.Close()


    End Sub