Dim t As String
Private Sub Combo1_Change()
'this will locate the name in the combo list
t = UCase(t + Combo1.Text)
For a = 1 To Combo1.ListCount
Combo1.ListIndex = a - 1
If Left(UCase(Combo1.Text), Len(t)) = t Then
Exit For
End If
Next
End Sub

Private Sub Combo1_KeyPress(KeyAscii As Integer)
' if the user press backspace, it will erase the last charater typed
' **** backspace key ****
If KeyAscii = 8 Then
t = Left(t, Len(t) - 1)
End If
End Sub

i hope this help

adcomp - Puerto Rico