estoy intentando ejecutar este codigo par autocmpletar un dbcombo enlazado a una base de datos, pero cuadon escribo el segundo caracter me lo hace al final del nombre y no en segundo lugar, ¿alguien sabe por que?

Public Function AutoComplete(ctlComboBox As Control)
'Dim i%, intSel% ' % is a "shorthand" for Integers

With ctlComboBox
'Run through the available items in a For...Loop and grab
'the first one that matches the selection:
Data1.Refresh

Do Until Data1.Recordset.EOF
If InStr(1, Data1.Recordset("nombre"), .Text, vbTextCompare) = 1 Then
intSel = .SelStart
.Text = Data1.Recordset("nombre")
.SelStart = intSel
.SelLength = Len(.Text) - intSel
Exit Do

End If
Data1.Recordset.MoveNext
Loop
End With
End Funct