[VB] Ricerca in una combo (era: urgente ricerca nella combo)

[BOYROMA1]

con il seguente codice carico i cap dei comuni d'italia in una combo

If Data1.Recordset.EOF = False And Data1.Recordset.BOF = False Then


Data1.Recordset.MoveFirst


While Not Data1.Recordset.EOF

Combo1.AddItem (Data1.Recordset("localita"))
Data1.Recordset.MoveNext

Wend

Data1.Recordset.MoveFirst
End If

poi uso una text per la ricerca dinamica

Private Sub Text40_KeyUp(KeyCode As Integer, Shift As Integer)
Dim I As Integer
Dim lung As Integer
lung = Len(Text40.Text)
For I = 0 To Combo1.ListCount - 1
If UCase(Text40.Text) = UCase(Left(Combo1.List(I), lung)) Then
Combo1.ListIndex = I
Exit For
End If
Next I

End Sub

il problema ,apparte l'attesa per caricare la combo,e' che non mi funziona perche i cap sono troppi.
infatti con - record funziona.

come posso fare?