Private Sub Page_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        If Not IsNumeric(Me.DropDownList1.SelectedValue) Then
            Me.SqlCommand1.Connection.Open()
            Me.DropDownList1.DataSource = SqlCommand1.ExecuteReader()
            Me.DropDownList1.DataTextField =  "Name" 
            Me.DropDownList1.DataValueField =  "id_client" 
            Me.DropDownList1.DataBind()
            Me.SqlCommand1.Connection.Close()
        End If
    End Sub

       Public Sub DropDownList1_SelectedIndexChanged(ByVal sender As Object, ByVal e As System.EventArgs) Handles DropDownList1.SelectedIndexChanged
        Me.SqlCommand2.CommandText =  "SELECT code, code + '(' + name + ')' AS name_code FROM Project WHERE ([Close4 Date] IS NULL) and client = "  & Me.DropDownList1.SelectedValue
        Me.SqlCommand2.Connection.Open()
        Me.DropDownList2.DataSource = SqlCommand2.ExecuteReader
        Me.DropDownList2.DataTextField =  "Name_code" 
        Me.DropDownList2.DataValueField =  "code" 
        Me.DropDownList2.DataBind()
        Me.SqlCommand2.Connection.Close()
    End Sub