Simple Search for a bound HFlexGrid

Hi:

I have a combo box and a search button on my form. The user is suppossed to type something into the combo box and click on the search button to initiate the search. The search is supposed to use the InStr function.

I'm using a Combo list box because the box is suppossed to retain the string that was searched for.

What is the simplest and fastest code to accomplish this?

Make sure the combo box's Style is set to 0.

VB Code:

Private Sub Command1_Click()
    Dim I As Integer
    Dim s As String
    
    s = Combo1.Text
    
    For I = 1 To Combo1.ListCount
        
        If CBool(InStr(1, Combo1.List(I), s)) Then
            Combo1.ListIndex = I
            Exit For
        End If
        
    Next I
    
End Sub