Visual Basic - LIMITE AUTOCOMPLETAR

Amigos: Tengo una instruccion para acutocompletar en un combobox, en el text1 empiezo a capturar los datos y se van al combo1, Todo funcionaba bien pero la base de datos (access 97) llego a 34,000 registros y ya no funciona, HAY UN LIMITE ?? , le quito registros y ya funciona, gracias de antemano y este es el procedimiento que utilizo.

Private Sub Text1_Change()
Dim strText As String
Dim i As Integer
Dim intL As Integer
Dim x As Integer

strText = UCase(Me.Text1.Text)
intL = Len(strText)
x = 0


For i = 0 To Me.Combo1.ListCount - 1
If InStr(1, Mid(UCase(Me.Combo1.List(i)), 1, intL), strText) Then
Me.Combo1.ListIndex = i
Me.Combo1.SelStart = 0
Me.Combo1.SelLength = Len(Me.Combo1.List(i))
x = x + 1
End If
Next
End Sub