Visual Basic - Error con combobox

Hola a todos,
tengo un control combobox enlazado a una data
funciona bien, incluso tiene un procedimiento para buscar escribiendo dentro de él
el drama es que me modifica los datos que muestra.
Por ejemplo, si el combo despliega los nombres Juan, Claudio, Teresa, Isabel, y escojo Teresa, me modifica Juan y a claudio con el nombre Teresa.
Lo peor es que esto ni siquiera sucede siempre. Puede pasar una de cada 5 veces que se ingresa al combo.

este codigo le tengo puesto:

Data3.Recordset.FindFirst "ucase(nombre) = '" & (Combo1.Text) & "'"

y el procedimiento:
Sub BuscaCombo(ByRef KeyAscii As Integer)
If KeyAscii < 32 Then Exit Sub

Dim Posic As Long, Buscar As String
On Error Resume Next
With Screen.ActiveControl

If .SelLength = 0 Then
Buscar = .Text & Chr$(KeyAscii)
Else
Buscar = left$(.Text, .SelStart) & Chr$(KeyAscii)
End If

Posic = SendMessage(.hWnd, &H14C, -1, ByVal Buscar)

If Posic <> -1 Then
.ListIndex = Posic
.SelStart = Len(Buscar)
.SelLength = Len(.Text) - .SelStart
KeyAscii = 0
End If

End With
On Error GoTo 0

End Sub

Alguien sabe por qué me pasa eso.
Gracias.

.............................................................................................zzzzzzzzzzzzzzzzzzzzzzz