How do I fix the null items in list box although there are items on ASP.NET and VB.NET

Private Sub CmdSave_Click(sender As Object, e As EventArgs) Handles CmdSave.Click
        Try
            If RecSet.State = 1 Then RecSet.Close()
            SQL1 = "SELECT * FROM REF_Committees WHERE CommitteeId = " & Trim(TxtId.Text)
            RecSet.Open(SQL1, Conn, ADODB.CursorTypeEnum.adOpenKeyset)
            If Not RecSet.EOF Then
                SQL1 = "DELETE FROM REF_Committees WHERE CommitteeId = " & Trim(TxtId.Text) : Conn.Execute(SQL1)
            End If
            'GET VARIABLES
            Call GetValues(2) : Call GetValues(3)
            'INSERT RECORD
            SQL1 = "INSERT INTO REF_Committees VALUES ("
            SQL1 = SQL1 & Trim(TxtId.Text) & ",'" & Trim(TxtDesc.Text) & "','False'," & YearIdVar & "," & SemesterIdVar & ",'True','True'," & Application("SysUserIdVar") & ",'"
            SQL1 = SQL1 & Format(DateValue(Now.Date), "MM/dd/yyyy") & " " & Format(TimeValue(TimeOfDay), "hh:mm:ss tt") & "')"
            Conn.Execute(SQL1)
            Dim i As Integer = 0
            For i = 0 To LstMembers.Rows - 1
                If RecSet.State = 1 Then RecSet.Close()
                LstMembers.SelectedIndex = i : LstTitles.SelectedIndex = i
                SQL1 = "SELECT MemberId FROM REF_Members WHERE MemberDesc = '" & LstMembers.SelectedItem.Text & "'"
                RecSet.Open(SQL1, Conn, ADODB.CursorTypeEnum.adOpenKeyset)
                If Not RecSet.EOF Then
                    SQL1 = "INSERT INTO REF_Committees_Mem VALUES ("
                    SQL1 = SQL1 & Trim(TxtId.Text) & "," & RecSet(0).Value & ",'" & LstTitles.SelectedItem.Text & "','True','True'," & Application("SysUserIdVar") & ",'"
                    SQL1 = SQL1 & Format(DateValue(Now.Date), "MM/dd/yyyy") & " " & Format(TimeValue(TimeOfDay), "hh:mm:ss tt") & "')"
                    Conn.Execute(SQL1)
                End If
            Next
            Call CleanScreen()
        Catch ex As Exception

        End Try
    End Sub()

Javascript to add and remove items is :


        function AddMember() {
            var txtValue = document.getElementById("");
            var listBox = document.getElementById("");
            var option = document.createElement("OPTION");
            option.innerHTML = txtValue.value;
            option.value = txtValue.value;   
            var i;
            for (i = listBox.options.length - 1; i >= 0; i--) {
                if (listBox.options[i].value == txtValue.value) {
                    alert("This Member Is Already In The List");
                    return false;
                }
            }
            listBox.appendChild(option);
            txtValue.value = "";
            return AddTitle();
            return false;
        }
        function AddTitle() {
            var txtValue = document.getElementById("");
            var listBox = document.getElementById("");
            var option = document.createElement("OPTION");
            option.innerHTML = txtValue.value;
            option.value = txtValue.value;
            listBox.appendChild(option);
            txtValue.value = "";
            return false;
        }
        function DeleteMember() {
            var MemberList = document.getElementById("");
            var TitlesList = document.getElementById("");
            var i;
            for (i = MemberList.options.length - 1; i >= 0; i--) {
                if (MemberList.options[i].selected == true) {
                    MemberList.remove(i);
                    TitlesList.remove(i);
                }
            }
            return;
        }