busqueda por Letra en un ComboBox

[Erick21]

Código:

  Private objx As New ClsVentas
    Private Sub llenarCombos()
        With cboProducto
        .DataSource = objx.getCombos(9, "", "")
        .DisplayMember = "Productos"
        .ValueMember = "IdProducto"
        End With
End Sub

Código:

    Private Sub frmNuevaVenta_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        llenarCombos()

    End Sub

Código:

Private Sub cboproducto_KeyPress(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyPressEventArgs) Handles cboproducto.KeyPress
 

Dim texto As String = cboproducto.Text.Trim()
 Dim palabras() As String = texto.Split(" ")
 
cboproducto.DataSource = objx.getCombos(9, palabras(0).ToString,Palabras(1).ToString)
 

End Sub

eso es todo.