Private Sub cboArtikli_TextChanged(ByVal sender As Object, ByVal e As System.EventArgs)
        Dim rsArtikliBaraj = New ADODB.Recordset
        Dim dtArtikliBaraj As New DataTable
        Dim sqlBaraj As String
        Dim i As Integer
        sqlBaraj = "SELECT * FROM tblArtikli WHERE Artikal_Ime LIKE '%" & cboArtikli.Text & "%'"
        'WHERE Description LIKE '%' + @SearchTerm + '%' AND Price <> '0.00' 

        rsArtikliBaraj.Open(sqlBaraj, cn, ADODB.CursorTypeEnum.adOpenStatic, ADODB.LockTypeEnum.adLockOptimistic)
        dtArtikliBaraj = RecordSetToDataTable(rsArtikliBaraj)



        '   Me.cboArtikli.DropDownStyle = ComboBoxStyle.DropDownList
        '   Me.cboArtikli.AutoCompleteMode = AutoCompleteMode.None
        '   Me.cboArtikli.AutoCompleteSource = AutoCompleteSource.None

        '        Me.cboArtikli.AllowDrop = True
        Me.cboArtikli.DataSource = dtArtikliBaraj
        '        Me.cboArtikli.DisplayMember = "Artikal_Ime"
        '        Me.cboArtikli.ValueMember = "ID_Artikal"
        Me.cboArtikli.Refresh()
        Me.cboArtikli.DroppedDown = True
        'Me.cboArtikli.DataBindings.Add("SelectedValue", dtArtikliBaraj, "Ed_Mera")

    End Sub