ADD BLANK DATA TO A BINDED COMBOBOX

Hi All,

I have below code to fill combo.

How could I add blank row to the combobox ?

Thank you.

Private Sub Fill_ComboBox()

        blnFillCombo = True

        Dim strJoin As String = " INNER JOIN TMJENISKARYAWAN AS B"
        strJoin &= " ON A.KodeJenis = B.KodeJenis"

        Dim strCriteria As String = "B.Professional = '" & ERV_Global.LBL_YES & "'"

        dtTable = ERV_Global.Open_DataTable_Join_Table("TMTIPEKARYAWAN AS A", "A.Keterangan, A.KodeTipe", strJoin, strCriteria, "A.Keterangan", strConnectionServ)

        With cboKodeTipeKaryawan
            .DataSource = dtTable
            .DisplayMember = "Keterangan"
            .ValueMember = "KodeTipe"
        End With

        cboKodeTipeKaryawan.SelectedIndex = -1

        blnFillCombo = False

    End Sub

Select all Open in new window