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