SqlDataReader Add Blank Row

[BrailleSchool]

Hi all,

I am populating a ComboBox using an SPROC using a SqlDataReader and it works perfectly; however, I want to be able to manually add a blank row to the SqlDataReader, so that the default option in the ComboBox is empty.

I can do this using a DataSet with no issues, but I don't want to update a database (MSSQL), I just want to pull information from the database to provide options to the end user.

This is what I have and how I am going about it. Any suggestions as to how this can be done? I have searched for many hours on adding a blank row to a SqlDataReader and have not found anything so far.

ALTER PROCEDURE GetFeeFrequencies
AS
BEGIN
    SELECT ServiceFeeFrequency AS SFF
    FROM FeeFrequencies
    ORDER BY SFF ASC
END

Private Sub CCProcessors_Load(ByVal sender As System.Object, _
                                  ByVal e As System.EventArgs) Handles MyBase.Load
 
        LoadFeeFreqDropDown(ServiceFeeFrequencySR)
    End Sub
 
    Public Sub LoadFeeFreqDropDown(ByVal CBName As Elegant.Ui.ComboBox)
        Using SetDatabaseConnection As New SqlConnection(ConnectToDatabase)
            Using GetFeeFreq As SqlCommand = New SqlCommand
                Try
                    SetDatabaseConnection.Open()
 
                    With GetFeeFreq
                        .Connection = SetDatabaseConnection
                        .CommandType = CommandType.StoredProcedure
                        .CommandText = "GetFeeFrequencies"
                        .ExecuteNonQuery()
                    End With
 
                    Dim FeeFreqDr As SqlDataReader
                    FeeFreqDr = GetFeeFreq.ExecuteReader
 
                    'TODO: Add a blank entry/row to the SqlDataReader and make it default.
 
                    With CBName
                        While FeeFreqDr.Read
                            If FeeFreqDr.HasRows Then
                                .AutoCompleteMode = AutoCompleteMode.SuggestAppend
                                .AutoCompleteSource = AutoCompleteSource.ListItems
                                .Items.Add(FeeFreqDr("SFF"))
                                .DisplayMember = CStr(FeeFreqDr("SFF"))
                                .ValueMember = CStr(FeeFreqDr("SFF"))
                                '.Text = vbNullString
                            End If
                        End While
                    End With
 
                    FeeFreqDr.Close()
                Catch CastEx As InvalidCastException
                    MessageBox.Show(CastEx.ToString, _
                                    "Invalid Cast Exception", _
                                    MessageBoxButtons.OK, _
                                    MessageBoxIcon.Error, _
                                    MessageBoxDefaultButton.Button1)
                Catch ArgEx As ArgumentException
                    MessageBox.Show(ArgEx.ToString, _
                                    "Argument Exception", _
                                    MessageBoxButtons.OK, _
                                    MessageBoxIcon.Error, _
                                    MessageBoxDefaultButton.Button1)
                Catch NullRefEx As NullReferenceException
                    MessageBox.Show(NullRefEx.ToString, _
                                    "Null Reference Exception", _
                                    MessageBoxButtons.OK, _
                                    MessageBoxIcon.Error, _
                                    MessageBoxDefaultButton.Button1)
                Catch SQLEx As SqlException
                    MessageBox.Show(SQLEx.ToString, _
                                    "SQL Exception", _
                                    MessageBoxButtons.OK, _
                                    MessageBoxIcon.Error, _
                                    MessageBoxDefaultButton.Button1)
                Catch FormatEx As FormatException
                    MessageBox.Show(FormatEx.ToString, _
                                    "Format Exception", _
                                    MessageBoxButtons.OK, _
                                    MessageBoxIcon.Error, _
                                    MessageBoxDefaultButton.Button1)
                Catch OverflowEx As OverflowException
                    MessageBox.Show(OverflowEx.ToString, _
                                    "Overflow Exception", _
                                    MessageBoxButtons.OK, _
                                    MessageBoxIcon.Error, _
                                    MessageBoxDefaultButton.Button1)
                Catch IdxOutOfRangeEx As IndexOutOfRangeException
                    MessageBox.Show(IdxOutOfRangeEx.ToString, _
                                    "Index Out Of Range Exception", _
                                    MessageBoxButtons.OK, _
                                    MessageBoxIcon.Error, _
                                    MessageBoxDefaultButton.Button1)
                Finally
                    SetDatabaseConnection.Close()
                End Try
            End Using
        End Using
    End Sub