Conversion from string “” to type 'Byte' is not valid
I have been struggling with this error for a couple days now, I have gone over the code to try to find an instance where I have the wrong type, but no luck.  Any thoughts on what this error may be?  

       Protected Sub Page_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Load
        If Not IsPostBack Then
            pnlErrMsg.Visible = False
            Load_State_ddl()
            Load_StoreCode_ddl()
            Load_OptQuestions()
        End If
    End Sub

    Protected Sub Load_State_ddl()
        Dim oStates As New tools

        ddState.DataSource = oStates.GetStates
        ddState.DataTextField = "State_Name"
        ddState.DataValueField = "State_Code"
        ddState.DataBind()
        ddState.Items.Insert(0, "")

        oStates = Nothing
    End Sub

    Protected Sub Load_StoreCode_ddl()
        Dim oStore_Code As New tools

        ddAd_Code.DataSource = oStoreCode.GetStoreCode
        ddAd_Code.DataTextField = "ST_Code"
        ddAd_Code.DataValueField = "ST_Code"
        ddAd_Code.DataBind()
        ddAd_Code.Items.Insert(0, "")

        oStoreCode = Nothing
    End Sub


    Protected Sub Load_OptQuestions()

        LoadQstDropdown(ddlOptQst1, "VndProspectOptQ1", 0)
        LoadQstDropdown(ddlOptQst3, "VndProspectOptQ3", 0)
        LoadQstDropdown(ddlOptQst4, "VndProspectOptQ4", 0)
        LoadQstDropdown(ddlOptQst5, "VndProspectOptQ5", 0)
        LoadQstDropdown(ddlOptQst6, "VndProspectOptQ6", 0)
        LoadQstCheckList(chkOptQst7, "VndProspectOptQ7", 0)
        LoadQstCheckList(chkOptQst8, "VndProspectOptQ8", 0)
        LoadQstCheckList(chkOptQst10, "VndProspectOptQ10", 0)
        LoadQstCheckList(chkOptQst11, "VndProspectOptQ11", 0)
        LoadQstDropdown(ddlOptQst9, "VndProspectOptQ9", 0)
        LoadQstDropdown(ddlOptQst12, "VndProspectOptQ12", 0)
        LoadQstDropdown(ddlOptQst13, "VndProspectOptQ13", 0)

        lblOptQst1.Text = ""
        lblOptQst2.Text = ""
        lblOptQst3.Text = ""
        lblOptQst4.Text = ""
        lblOptQst5.Text = ""
        lblOptQst6.Text = ""
        lblOptQst7.Text = ""
        lblOptQst8.Text = ""
        lblOptQst10.Text = ""
        lblOptQst11.Text = ""
        lblOptQst9.Text = ""


    End Sub


    Protected Sub LoadQstDropdown(ByVal ddl As DropDownList, ByVal Question As String, ByVal rsValue As String)
        Dim lookupadapter As New LookupTableAdapter
        Try
            ddl.DataSource = lookupadapter.GetDataByDescription(Question)
            ddl.DataValueField = "LU_Value"
            ddl.DataTextField = "LU_Description"
            ddl.DataBind()
            ddl.Items.Insert(0, "")  ' add blank default item.
            ddl.SelectedIndex = ddl.Items.IndexOf(ddl.Items.FindByValue(rsValue))
        Catch ex As Exception

        End Try


    End Sub


    Protected Sub LoadQstCheckList(ByVal chk As CheckBoxList, ByVal Question As String, ByVal rsValue As String)
        Dim lookupadapter As New LookupTableAdapter
        Try
            chk.DataSource = lookupadapter.GetDataByDescription(Question)
            chk.DataValueField = "LU_Value"
            chk.DataTextField = "LU_Description"
            chk.DataBind()
            chk.SelectedIndex = chk.Items.IndexOf(chk.Items.FindByValue(rsValue))
        Catch ex As Exception

        End Try
    End Sub


    Protected Sub btnSubmit_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnSubmit.Click
        pnlErrMsg.Visible = True

        If Not SaveEntryApproved() Then
            ' Reset_Controls()
            Exit Sub
        End If

        If Data_Save() Then
            SendResponseEmailDemonstrator()
            Reset_Controls()
            lblErrMessage.Text = "Your information has been submitted!"
        Else
            lblErrMessage.Text = "Error occurred while saving your entry."
        End If

    End Sub


    Protected Sub btnCancel_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnCancel.Click
        Response.Redirect("../index.html")
    End Sub


    Protected Sub btnBack_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnBack.Click
        Response.Redirect("../index.html")
    End Sub


    Protected Function RecordExists() As Boolean
        RecordExists = False
        Dim RecCount As Integer = (New DemoOp_WebTableAdapter()).GetExistingCount(Me.txtFName.Text, Me.txtLName.Text, Me.txtHome_Phone.Text)
        If RecCount > 0 Then
            RecordExists = True
        End If
    End Function


    Protected Function SaveEntryApproved() As Boolean
        SaveEntryApproved = False
        Dim DOWtable As DemoOp_WebDataTable = (New DemoOp_WebTableAdapter()).GetDataByFName_LName_HPhone(Me.txtFName.Text, Me.txtLName.Text, Me.txtHome_Phone.Text)
        If DOWtable.Rows.Count = 0 Then
            SaveEntryApproved = True
        ElseIf DOWtable.Rows.Count > 1 Then ' max # of entries is 2
            lblErrMessage.Text = "Your information was previously submitted."
            Reset_Controls()
        Else
            Dim DOWrow As DemoOp_WebRow = CType(DOWtable.Rows(0), DemoOp_WebRow)
            If DateDiff(DateInterval.Day, DOWrow.DOW_In_Date, System.DateTime.Today) < 60 Then
             
                lblErrMessage.Text = ""

                Reset_Controls()
                ModalPopupExtender1.Show()
            Else
                SaveEntryApproved = True
            End If
        End If

    End Function


    Protected Function Data_Save() As Boolean
        Data_Save = False
        Try

            Dim newTable As New DemoOp_WebDataTable
            Dim newRow As DemoOp_WebRow = newTable.NewRow()

            newRow.DOW_FName = Me.txtFName.Text
            newRow.DOW_LName = Me.txtLName.Text
            newRow.DOW_Addr_1 = Me.txtAddr_1.Text
            newRow.DOW_Addr_2 = Me.txtAddr_2.Text
            newRow.DOW_City = Me.txtCity.Text
            newRow.DOW_State = Me.ddState.SelectedValue.ToString
            newRow.DOW_Zip = Me.txtZip.Text
            newRow.DOW_Home_Phone = Me.txtHome_Phone.Text
            newRow.DOW_Work_Phone = String.Empty
            newRow.DOW_Cell_Phone = Me.txtCell_Phone.Text
            newRow.DOW_Email = Me.txtEmail.Text
            newRow.DOW_Dem_Exp = String.Empty
            newRow.DOW_Wkd_Ret = String.Empty
            newRow.DOW_Bilingual = String.Empty
            newRow.DOW_Lang_Spk = String.Empty
            newRow.DOW_Hrd_Store = Me.ddlOptQst12.SelectedItem.Value
            newRow.DOW_StoreCode = Me.ddAd_Code.SelectedValue.ToString
            newRow.DOW_In_Date = Now
            newRow.DOW_18Plus = Me.rblnewqst1.SelectedValue
            newRow.DOW_Transportation = Me.rblnewqst2.SelectedValue
            newRow.DOW_AbleToStand = Me.rblnewqst3.SelectedValue
            newRow.DOW_Internet = Me.rblnewqst4.SelectedValue
            newRow.DOW_DirectDeposit = Me.rblnewqst5.SelectedValue
            newRow.DOW_Experience = Me.rblnewqst6.SelectedValue
            newRow.DOW_Outgoing = Me.rblnewqst7.SelectedValue
            newRow.DOW_CulinarySkills = Me.rblnewqst8.SelectedValue
            newRow.DOW_DemoWorkType = Me.ddlOptQst1.SelectedItem.Value
            newRow.DOW_ReceiveTextMsgs = Me.rblOptQst2.SelectedValue
            newRow.DOW_AgeCategory = Me.ddlOptQst3.SelectedItem.Value
            newRow.DOW_ComputerSkill = Me.ddlOptQst4.SelectedItem.Value
            newRow.DOW_CookingSkill = Me.ddlOptQst5.SelectedItem.Value
            newRow.DOW_PhysicallyFit = Me.ddlOptQst6.SelectedItem.Value
            newRow.DOW_AreasOfExp = GetCheckValues(chkOptQst7)
            newRow.DOW_SpecialExpertise = GetCheckValues(chkOptQst8)
            newRow.DOW_OtherLanguage = Me.ddlOptQst9.SelectedItem.Value
            newRow.DOW_Felony = Me.rblnewqst11.SelectedValue
            newRow.DOW_SOffender = Me.rblnewqst12.SelectedValue
            newRow.DOW_ShopLift = Me.rblnewqst13.SelectedValue
            newRow.DOW_FoodHandlers = Me.rblnewqst10.SelectedValue
            newRow.DOW_OtherAgencies = GetCheckValues(chkOptQst10)
            newRow.DOW_CookingAppliances = GetCheckValues(chkOptQst11)      
            newRow.DOW_Hrd_Store_Detail = Me.ddlOptQst13.SelectedItem.Value


            Dim ta As DemoOp_WebTableAdapter = New DemoOp_WebTableAdapter

            'ta.Insert(newRow.DOW_FName, newRow.DOW_LName, newRow.DOW_Addr_1, newRow.DOW_Addr_2, newRow.DOW_City, _
            '    newRow.DOW_State, newRow.DOW_Zip, newRow.DOW_Home_Phone, newRow.DOW_Work_Phone, newRow.DOW_Cell_Phone, _
            '    newRow.DOW_Email, newRow.DOW_Dem_Exp, newRow.DOW_Wkd_Ret, newRow.DOW_Bilingual, newRow.DOW_Lang_Spk, _
            '    newRow.DOW_Hrd_Store, newRow.DOW_Hrd_Store_Detail, newRow.DOW_StoreCode, newRow.DOW_18Plus, newRow.DOW_Transportation, _
            '    newRow.DOW_AbleToStand, newRow.DOW_Internet, newRow.DOW_DirectDeposit, newRow.DOW_Felony, newRow.DOW_SOffender, newRow.DOW_ShopLift, newRow.DOW_Experience, _
            '    newRow.DOW_Outgoing, newRow.DOW_CulinarySkills, newRow.DOW_FoodHandlers, newRow.DOW_DemoWorkType, newRow.DOW_ReceiveTextMsgs, _
            '    newRow.DOW_AgeCategory, newRow.DOW_ComputerSkill, newRow.DOW_CookingSkill, newRow.DOW_PhysicallyFit, _
            '    newRow.DOW_AreasOfExp, newRow.DOW_SpecialExpertise, newRow.DOW_OtherAgencies, newRow.DOW_CookingAppliances, newRow.DOW_OtherLanguage)

            ta.Insert(newRow.DOW_FName, newRow.DOW_LName, newRow.DOW_Addr_1, newRow.DOW_Addr_2, newRow.DOW_City, _
                          newRow.DOW_State, newRow.DOW_Zip, newRow.DOW_Home_Phone, newRow.DOW_Work_Phone, newRow.DOW_Cell_Phone, _
                          newRow.DOW_Email, newRow.DOW_Dem_Exp, newRow.DOW_Wkd_Ret, newRow.DOW_Bilingual, newRow.DOW_Lang_Spk, _
                          newRow.DOW_Hrd_Store, newRow.DOW_StoreCode, newRow.DOW_18Plus, newRow.DOW_Transportation, _
                          newRow.DOW_AbleToStand, newRow.DOW_Internet, newRow.DOW_DirectDeposit, newRow.DOW_Experience, _
                          newRow.DOW_Outgoing, newRow.DOW_CulinarySkills, newRow.DOW_DemoWorkType, newRow.DOW_ReceiveTextMsgs, _
                          newRow.DOW_AgeCategory, newRow.DOW_ComputerSkill, newRow.DOW_CookingSkill, newRow.DOW_PhysicallyFit, _
                          newRow.DOW_AreasOfExp, newRow.DOW_SpecialExpertise, newRow.DOW_OtherLanguage, newRow.DOW_Felony, newRow.DOW_SOffender, newRow.DOW_ShopLift, newRow.DOW_FoodHandlers, newRow.DOW_OtherAgencies, newRow.DOW_CookingAppliances, newRow.DOW_Hrd_Store_Detail)

            Data_Save = True

        Catch ex As ApplicationException
            Me.lblErrMessage.Text = ex.InnerException.ToString
        End Try

    End Function

    Protected Function GetCheckValues(ByVal chklst As CheckBoxList) As String
        GetCheckValues = String.Empty

        Dim i As Integer
        Dim sb As StringBuilder = New StringBuilder()
        For i = 0 To chklst.Items.Count - 1
            If chklst.Items(i).Selected Then
                sb.Append(chklst.Items(i).Value & ",")
            End If
        Next
        'remove the last comma in sb
        If sb.Length > 0 Then
            Dim InputValue As String
            InputValue = Left(sb.ToString(), Len(sb.ToString()) - 1)
            GetCheckValues = InputValue
        End If

    End Function

    Protected Sub Reset_Controls()
        btnSubmit.Visible = False
        btnCancel.Visible = False
        btnBack.Visible = True

        txtFName.Enabled = False
        txtLName.Enabled = False
        txtAddr_1.Enabled = False
        txtAddr_2.Enabled = False
        txtCity.Enabled = False
        ddState.Enabled = False
        txtZip.Enabled = False
        txtHome_Phone.Enabled = False
        txtCell_Phone.Enabled = False
        txtEmail.Enabled = False
        ddlOptQst12.Enabled = False
        ddlOptQst13.Enabled = False
        ddStoreCode.Enabled = False

        rblnewqst1.Enabled = False
        rblnewqst2.Enabled = False
        rblnewqst3.Enabled = False
        rblnewqst4.Enabled = False
        rblnewqst5.Enabled = False
        rblnewqst6.Enabled = False
        rblnewqst7.Enabled = False
        rblnewqst8.Enabled = False
        rblnewqst10.Enabled = False
        rblnewqst11.Enabled = False
        rblnewqst12.Enabled = False
        rblnewqst13.Enabled = False
        ddlOptQst1.Enabled = False
        rblOptQst2.Enabled = False
        ddlOptQst3.Enabled = False
        ddlOptQst4.Enabled = False
        ddlOptQst5.Enabled = False
        ddlOptQst6.Enabled = False
        chkOptQst7.Enabled = False
        chkOptQst8.Enabled = False
        ddlOptQst9.Enabled = False
        chkOptQst10.Enabled = False
        chkOptQst11.Enabled = False

    End Sub

    Protected Sub btnOKMsg_Click(ByVal sender As Object, ByVal e As System.EventArgs)
        If Data_Save() Then
            lblErrMessage.Text = "Your information has been submitted!"
        Else
            lblErrMessage.Text = "Error occurred while saving your entry. Click on 'Back' to return to main page."
        End If
        'Reset_Controls()
        ModalPopupExtender1.Hide()
    End Sub

    Protected Sub btnCancelMsg_Click(ByVal sender As Object, ByVal e As System.EventArgs)
        lblErrMessage.Text = "Your information was previously submitted."
        ModalPopupExtender1.Hide()
    End Sub



End Class

Conversion from string “” to type 'Byte' is not valid
===

I have been struggling with this error for a couple days now, I have gone over the code to try to find an instance where I have the wrong type, but no luck.  Any thoughts on what this error may be?  

       Protected Sub Page_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Load
        If Not IsPostBack Then
            pnlErrMsg.Visible = False
            Load_State_ddl()
            Load_StoreCode_ddl()
            Load_OptQuestions()
        End If
    End Sub

    Protected Sub Load_State_ddl()
        Dim oStates As New tools

        ddState.DataSource = oStates.GetStates
        ddState.DataTextField = "State_Name"
        ddState.DataValueField = "State_Code"
        ddState.DataBind()
        ddState.Items.Insert(0, "")

        oStates = Nothing
    End Sub

    Protected Sub Load_StoreCode_ddl()
        Dim oStore_Code As New tools

        ddAd_Code.DataSource = oStoreCode.GetStoreCode
        ddAd_Code.DataTextField = "ST_Code"
        ddAd_Code.DataValueField = "ST_Code"
        ddAd_Code.DataBind()
        ddAd_Code.Items.Insert(0, "")

        oStoreCode = Nothing
    End Sub


    Protected Sub Load_OptQuestions()

        LoadQstDropdown(ddlOptQst1, "VndProspectOptQ1", 0)
        LoadQstDropdown(ddlOptQst3, "VndProspectOptQ3", 0)
        LoadQstDropdown(ddlOptQst4, "VndProspectOptQ4", 0)
        LoadQstDropdown(ddlOptQst5, "VndProspectOptQ5", 0)
        LoadQstDropdown(ddlOptQst6, "VndProspectOptQ6", 0)
        LoadQstCheckList(chkOptQst7, "VndProspectOptQ7", 0)
        LoadQstCheckList(chkOptQst8, "VndProspectOptQ8", 0)
        LoadQstCheckList(chkOptQst10, "VndProspectOptQ10", 0)
        LoadQstCheckList(chkOptQst11, "VndProspectOptQ11", 0)
        LoadQstDropdown(ddlOptQst9, "VndProspectOptQ9", 0)
        LoadQstDropdown(ddlOptQst12, "VndProspectOptQ12", 0)
        LoadQstDropdown(ddlOptQst13, "VndProspectOptQ13", 0)

        lblOptQst1.Text = ""
        lblOptQst2.Text = ""
        lblOptQst3.Text = ""
        lblOptQst4.Text = ""
        lblOptQst5.Text = ""
        lblOptQst6.Text = ""
        lblOptQst7.Text = ""
        lblOptQst8.Text = ""
        lblOptQst10.Text = ""
        lblOptQst11.Text = ""
        lblOptQst9.Text = ""


    End Sub


    Protected Sub LoadQstDropdown(ByVal ddl As DropDownList, ByVal Question As String, ByVal rsValue As String)
        Dim lookupadapter As New LookupTableAdapter
        Try
            ddl.DataSource = lookupadapter.GetDataByDescription(Question)
            ddl.DataValueField = "LU_Value"
            ddl.DataTextField = "LU_Description"
            ddl.DataBind()
            ddl.Items.Insert(0, "")  ' add blank default item.
            ddl.SelectedIndex = ddl.Items.IndexOf(ddl.Items.FindByValue(rsValue))
        Catch ex As Exception

        End Try


    End Sub


    Protected Sub LoadQstCheckList(ByVal chk As CheckBoxList, ByVal Question As String, ByVal rsValue As String)
        Dim lookupadapter As New LookupTableAdapter
        Try
            chk.DataSource = lookupadapter.GetDataByDescription(Question)
            chk.DataValueField = "LU_Value"
            chk.DataTextField = "LU_Description"
            chk.DataBind()
            chk.SelectedIndex = chk.Items.IndexOf(chk.Items.FindByValue(rsValue))
        Catch ex As Exception

        End Try
    End Sub


    Protected Sub btnSubmit_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnSubmit.Click
        pnlErrMsg.Visible = True

        If Not SaveEntryApproved() Then
            ' Reset_Controls()
            Exit Sub
        End If

        If Data_Save() Then
            SendResponseEmailDemonstrator()
            Reset_Controls()
            lblErrMessage.Text = "Your information has been submitted!"
        Else
            lblErrMessage.Text = "Error occurred while saving your entry."
        End If

    End Sub


    Protected Sub btnCancel_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnCancel.Click
        Response.Redirect("../index.html")
    End Sub


    Protected Sub btnBack_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnBack.Click
        Response.Redirect("../index.html")
    End Sub


    Protected Function RecordExists() As Boolean
        RecordExists = False
        Dim RecCount As Integer = (New DemoOp_WebTableAdapter()).GetExistingCount(Me.txtFName.Text, Me.txtLName.Text, Me.txtHome_Phone.Text)
        If RecCount > 0 Then
            RecordExists = True
        End If
    End Function


    Protected Function SaveEntryApproved() As Boolean
        SaveEntryApproved = False
        Dim DOWtable As DemoOp_WebDataTable = (New DemoOp_WebTableAdapter()).GetDataByFName_LName_HPhone(Me.txtFName.Text, Me.txtLName.Text, Me.txtHome_Phone.Text)
        If DOWtable.Rows.Count = 0 Then
            SaveEntryApproved = True
        ElseIf DOWtable.Rows.Count > 1 Then ' max # of entries is 2
            lblErrMessage.Text = "Your information was previously submitted."
            Reset_Controls()
        Else
            Dim DOWrow As DemoOp_WebRow = CType(DOWtable.Rows(0), DemoOp_WebRow)
            If DateDiff(DateInterval.Day, DOWrow.DOW_In_Date, System.DateTime.Today) < 60 Then
             
                lblErrMessage.Text = ""

                Reset_Controls()
                ModalPopupExtender1.Show()
            Else
                SaveEntryApproved = True
            End If
        End If

    End Function


    Protected Function Data_Save() As Boolean
        Data_Save = False
        Try

            Dim newTable As New DemoOp_WebDataTable
            Dim newRow As DemoOp_WebRow = newTable.NewRow()

            newRow.DOW_FName = Me.txtFName.Text
            newRow.DOW_LName = Me.txtLName.Text
            newRow.DOW_Addr_1 = Me.txtAddr_1.Text
            newRow.DOW_Addr_2 = Me.txtAddr_2.Text
            newRow.DOW_City = Me.txtCity.Text
            newRow.DOW_State = Me.ddState.SelectedValue.ToString
            newRow.DOW_Zip = Me.txtZip.Text
            newRow.DOW_Home_Phone = Me.txtHome_Phone.Text
            newRow.DOW_Work_Phone = String.Empty
            newRow.DOW_Cell_Phone = Me.txtCell_Phone.Text
            newRow.DOW_Email = Me.txtEmail.Text
            newRow.DOW_Dem_Exp = String.Empty
            newRow.DOW_Wkd_Ret = String.Empty
            newRow.DOW_Bilingual = String.Empty
            newRow.DOW_Lang_Spk = String.Empty
            newRow.DOW_Hrd_Store = Me.ddlOptQst12.SelectedItem.Value
            newRow.DOW_StoreCode = Me.ddAd_Code.SelectedValue.ToString
            newRow.DOW_In_Date = Now
            newRow.DOW_18Plus = Me.rblnewqst1.SelectedValue
            newRow.DOW_Transportation = Me.rblnewqst2.SelectedValue
            newRow.DOW_AbleToStand = Me.rblnewqst3.SelectedValue
            newRow.DOW_Internet = Me.rblnewqst4.SelectedValue
            newRow.DOW_DirectDeposit = Me.rblnewqst5.SelectedValue
            newRow.DOW_Experience = Me.rblnewqst6.SelectedValue
            newRow.DOW_Outgoing = Me.rblnewqst7.SelectedValue
            newRow.DOW_CulinarySkills = Me.rblnewqst8.SelectedValue
            newRow.DOW_DemoWorkType = Me.ddlOptQst1.SelectedItem.Value
            newRow.DOW_ReceiveTextMsgs = Me.rblOptQst2.SelectedValue
            newRow.DOW_AgeCategory = Me.ddlOptQst3.SelectedItem.Value
            newRow.DOW_ComputerSkill = Me.ddlOptQst4.SelectedItem.Value
            newRow.DOW_CookingSkill = Me.ddlOptQst5.SelectedItem.Value
            newRow.DOW_PhysicallyFit = Me.ddlOptQst6.SelectedItem.Value
            newRow.DOW_AreasOfExp = GetCheckValues(chkOptQst7)
            newRow.DOW_SpecialExpertise = GetCheckValues(chkOptQst8)
            newRow.DOW_OtherLanguage = Me.ddlOptQst9.SelectedItem.Value
            newRow.DOW_Felony = Me.rblnewqst11.SelectedValue
            newRow.DOW_SOffender = Me.rblnewqst12.SelectedValue
            newRow.DOW_ShopLift = Me.rblnewqst13.SelectedValue
            newRow.DOW_FoodHandlers = Me.rblnewqst10.SelectedValue
            newRow.DOW_OtherAgencies = GetCheckValues(chkOptQst10)
            newRow.DOW_CookingAppliances = GetCheckValues(chkOptQst11)      
            newRow.DOW_Hrd_Store_Detail = Me.ddlOptQst13.SelectedItem.Value


            Dim ta As DemoOp_WebTableAdapter = New DemoOp_WebTableAdapter

            'ta.Insert(newRow.DOW_FName, newRow.DOW_LName, newRow.DOW_Addr_1, newRow.DOW_Addr_2, newRow.DOW_City, _
            '    newRow.DOW_State, newRow.DOW_Zip, newRow.DOW_Home_Phone, newRow.DOW_Work_Phone, newRow.DOW_Cell_Phone, _
            '    newRow.DOW_Email, newRow.DOW_Dem_Exp, newRow.DOW_Wkd_Ret, newRow.DOW_Bilingual, newRow.DOW_Lang_Spk, _
            '    newRow.DOW_Hrd_Store, newRow.DOW_Hrd_Store_Detail, newRow.DOW_StoreCode, newRow.DOW_18Plus, newRow.DOW_Transportation, _
            '    newRow.DOW_AbleToStand, newRow.DOW_Internet, newRow.DOW_DirectDeposit, newRow.DOW_Felony, newRow.DOW_SOffender, newRow.DOW_ShopLift, newRow.DOW_Experience, _
            '    newRow.DOW_Outgoing, newRow.DOW_CulinarySkills, newRow.DOW_FoodHandlers, newRow.DOW_DemoWorkType, newRow.DOW_ReceiveTextMsgs, _
            '    newRow.DOW_AgeCategory, newRow.DOW_ComputerSkill, newRow.DOW_CookingSkill, newRow.DOW_PhysicallyFit, _
            '    newRow.DOW_AreasOfExp, newRow.DOW_SpecialExpertise, newRow.DOW_OtherAgencies, newRow.DOW_CookingAppliances, newRow.DOW_OtherLanguage)

            ta.Insert(newRow.DOW_FName, newRow.DOW_LName, newRow.DOW_Addr_1, newRow.DOW_Addr_2, newRow.DOW_City, _
                          newRow.DOW_State, newRow.DOW_Zip, newRow.DOW_Home_Phone, newRow.DOW_Work_Phone, newRow.DOW_Cell_Phone, _
                          newRow.DOW_Email, newRow.DOW_Dem_Exp, newRow.DOW_Wkd_Ret, newRow.DOW_Bilingual, newRow.DOW_Lang_Spk, _
                          newRow.DOW_Hrd_Store, newRow.DOW_StoreCode, newRow.DOW_18Plus, newRow.DOW_Transportation, _
                          newRow.DOW_AbleToStand, newRow.DOW_Internet, newRow.DOW_DirectDeposit, newRow.DOW_Experience, _
                          newRow.DOW_Outgoing, newRow.DOW_CulinarySkills, newRow.DOW_DemoWorkType, newRow.DOW_ReceiveTextMsgs, _
                          newRow.DOW_AgeCategory, newRow.DOW_ComputerSkill, newRow.DOW_CookingSkill, newRow.DOW_PhysicallyFit, _
                          newRow.DOW_AreasOfExp, newRow.DOW_SpecialExpertise, newRow.DOW_OtherLanguage, newRow.DOW_Felony, newRow.DOW_SOffender, newRow.DOW_ShopLift, newRow.DOW_FoodHandlers, newRow.DOW_OtherAgencies, newRow.DOW_CookingAppliances, newRow.DOW_Hrd_Store_Detail)

            Data_Save = True

        Catch ex As ApplicationException
            Me.lblErrMessage.Text = ex.InnerException.ToString
        End Try

    End Function

    Protected Function GetCheckValues(ByVal chklst As CheckBoxList) As String
        GetCheckValues = String.Empty

        Dim i As Integer
        Dim sb As StringBuilder = New StringBuilder()
        For i = 0 To chklst.Items.Count - 1
            If chklst.Items(i).Selected Then
                sb.Append(chklst.Items(i).Value & ",")
            End If
        Next
        'remove the last comma in sb
        If sb.Length > 0 Then
            Dim InputValue As String
            InputValue = Left(sb.ToString(), Len(sb.ToString()) - 1)
            GetCheckValues = InputValue
        End If

    End Function

    Protected Sub Reset_Controls()
        btnSubmit.Visible = False
        btnCancel.Visible = False
        btnBack.Visible = True

        txtFName.Enabled = False
        txtLName.Enabled = False
        txtAddr_1.Enabled = False
        txtAddr_2.Enabled = False
        txtCity.Enabled = False
        ddState.Enabled = False
        txtZip.Enabled = False
        txtHome_Phone.Enabled = False
        txtCell_Phone.Enabled = False
        txtEmail.Enabled = False
        ddlOptQst12.Enabled = False
        ddlOptQst13.Enabled = False
        ddStoreCode.Enabled = False

        rblnewqst1.Enabled = False
        rblnewqst2.Enabled = False
        rblnewqst3.Enabled = False
        rblnewqst4.Enabled = False
        rblnewqst5.Enabled = False
        rblnewqst6.Enabled = False
        rblnewqst7.Enabled = False
        rblnewqst8.Enabled = False
        rblnewqst10.Enabled = False
        rblnewqst11.Enabled = False
        rblnewqst12.Enabled = False
        rblnewqst13.Enabled = False
        ddlOptQst1.Enabled = False
        rblOptQst2.Enabled = False
        ddlOptQst3.Enabled = False
        ddlOptQst4.Enabled = False
        ddlOptQst5.Enabled = False
        ddlOptQst6.Enabled = False
        chkOptQst7.Enabled = False
        chkOptQst8.Enabled = False
        ddlOptQst9.Enabled = False
        chkOptQst10.Enabled = False
        chkOptQst11.Enabled = False

    End Sub

    Protected Sub btnOKMsg_Click(ByVal sender As Object, ByVal e As System.EventArgs)
        If Data_Save() Then
            lblErrMessage.Text = "Your information has been submitted!"
        Else
            lblErrMessage.Text = "Error occurred while saving your entry. Click on 'Back' to return to main page."
        End If
        'Reset_Controls()
        ModalPopupExtender1.Hide()
    End Sub

    Protected Sub btnCancelMsg_Click(ByVal sender As Object, ByVal e As System.EventArgs)
        lblErrMessage.Text = "Your information was previously submitted."
        ModalPopupExtender1.Hide()
    End Sub



End Class
