<asp:FormView ID="FormView1" runat="server" DataKeyNames="ProductionID" 
DataSourceID="test" DefaultMode="Insert">
<InsertItemTemplate>
LTGoal:
<asp:DropDownList ID="DropDownList2" runat="server" AutoPostBack="True" 
DataSourceID="lt" DataTextField="LTGoal" DataValueField="LTGoalID" 
SelectedValue='<%# Bind("LTGoal") %>'>
</asp:DropDownList>
<asp:SqlDataSource ID="lt" runat="server" 
ConnectionString="<%$ ConnectionStrings:anthemprodConnectionString %>" 
SelectCommand="SELECT [LTGoalID], [LTGoal] FROM [TblGoalsLT]">
</asp:SqlDataSource>
<br />
STGoal:
<asp:DropDownList ID="DropDownList3" runat="server" DataSourceID="st" 
DataTextField="SpecificTarget" DataValueField="SpecTargetID" 
AutoPostBack="True">
</asp:DropDownList>
<asp:SqlDataSource ID="st" runat="server" 
ConnectionString="<%$ ConnectionStrings:anthemprodConnectionString %>" 

SelectCommand="SELECT TblGoalsST.SpecTargetID, TblGoalsST.SpecificTarget, TblGoalsST.MeasureID, TblGoalsLT.LTGoalID FROM TblGoalsST LEFT OUTER JOIN TblGoalsLT ON TblGoalsST.MeasureID = TblGoalsLT.LTGoalID WHERE (TblGoalsLT.LTGoalID = @MeasureID)">
<SelectParameters>
<asp:ControlParameter ControlID="DropDownList2" Name="MeasureID" 
PropertyName="SelectedValue" Type="Int32" />
</SelectParameters>
</asp:SqlDataSource>
<br />
<asp:LinkButton ID="InsertButton" runat="server" CausesValidation="True" 
CommandName="Insert" Text="Insert" />
&nbsp;<asp:LinkButton ID="InsertCancelButton" runat="server" 
CausesValidation="False" CommandName="Cancel" Text="Cancel" />
</InsertItemTemplate>
</asp:FormView>

   Sub getAreaID(ByVal FacID As Integer, ByVal RuleID As Integer)
        Dim SQL As String = "SELECT Areas.AreaID, Areas.AreaName FROM Areas INNER JOIN Facilities ON Areas.FacID = Facilities.FacID WHERE Facilities.FacID = " & FacID & " AND Areas.AreaName = 'Wells 1148.1' ORDER BY Len(Areas.AreaName), Areas.AreaName ;"
        Dim oDA As New SqlDataAdapter(SQL, _oConn)
        Dim oDS As New DataSet
        oDA.Fill(oDS)
        ddlAreaID.DataSource = oDS
        ddlAreaID.DataTextField = "AreaName"
        ddlAreaID.DataValueField = "AreaID"
        ddlAreaID.DataBind()
        ddlAreaID.Items.Insert(0, New ListItem("All", 0))
        btnAdd.Visible = False
    End Sub

    Private Sub ddlAreaID_SelectedIndexChanged(ByVal sender As Object, ByVal e As EventArgs) Handles ddlAreaID.SelectedIndexChanged
        grdInventory.Visible = False
        tbrLegend.Visible = False
        ddlSubID.Items.Clear()
        getSubID(ddlAreaID.SelectedValue, _RuleID)
    End Sub

    Sub getSubID(ByVal AreaID As Integer, ByVal RuleID As Integer)
        Dim SQL As String = "SELECT Subareas.SubID, Subareas.SubName FROM Subareas INNER JOIN Areas ON Subareas.AreaID = Areas.AreaID WHERE Areas.AreaID = " & AreaID & " ORDER BY Subareas.SubName ASC;"
        Dim oDA As New SqlDataAdapter(SQL, _oConn)
        Dim oDS As New DataSet
        oDA.Fill(oDS)
        ddlSubID.DataSource = oDS
        ddlSubID.DataTextField = "SubName"
        ddlSubID.DataValueField = "SubID"
        ddlSubID.DataBind()
        ddlSubID.Items.Insert(0, New ListItem("All", 0))
        btnAdd.Visible = False
        If oDS.Tables(0).Rows.Count = 1 Then
            ddlSubID.SelectedIndex = 1
        End If
    End Sub