[VB6] Ricerca in ComboBox

[angillieri]

salve ragazzi avrei bisogno di un piccolo aiuto
in un database o caricati circa 2000 nomi di articoli che all'inizio carico in un combobox

mi servirebbe per comodita' e per fare prima se possibile una stringa che mi trovasse all'inserimento delle iniziali articolo scelto
esempio
nel database ci sono ad esempio inseriti cinque articoli
birra peroni
birra dreher
birra heineken
birra ceres
birra corona

all'inserimento della B mi trova tutti gli articoli con iniziale B
pero se inserisco BH vorrei che mi trovasse solo Birra Heineken
e cosi via
o gia questo codice che mi trova e visualizza all'inserimento di B mi visualizza tutti gli articoli con iniziale B oppure bI tutti quelli con iniziale BI

vi posto il codice

Private Sub COMBO1_KeyUp(KeyCode As Integer, Shift As Integer)

Static NoSelectText As String
Dim I As Long
Const RGBerror = 255

With Combo1
If KeyCode = vbKeyUp Then Exit Sub
If KeyCode = vbKeyDown Then Exit Sub
If KeyCode = vbKeyLeft Then Exit Sub
If KeyCode = vbKeyRight Then Exit Sub

If KeyCode <> vbKeyBack Then
NoSelectText = Mid(.Text, 1, Len(.Text) - .SelLength)
Else
If NoSelectText <> "" Then
NoSelectText = Mid(NoSelectText, 1, Len(NoSelectText) - 1)
End If
End If

For I = 0 To .ListCount - 1
If UCase(NoSelectText) = UCase(Mid(.List(I), 1, Len(NoSelectText))) Then
.ListIndex = I
Exit For
End If
Next

.SelStart = Len(NoSelectText)
.SelLength = Len(.Text)

If .ListIndex = -1 Then
.BackColor = RGBerror
Else
.BackColor = vbWindowBackground
End If

End With
End Sub

mi sapreste indicare qualche modifica che fa al mio caso

grazie ciao

[angillieri]

nessuno che mi puo dare una mano

ciao