Buscar cliente pelo telefone

Boa noite a todos!Preciso de uma ajuda!
Tenho um form,onde busco cliente atraves de uma combo pelo nome digitado,usando o cod abaixo;
gostaria de buscar pelo telefone ,ja mudei a combo para o formato telefone ;
estou tentando usar o mesmo codigo da combonome,na combotelefone,isso em outro frm independente!
Este cod exibe todos os nome ele nao filtra
Private Sub Texto17_AfterUpdate()
Dim parteNome As String

If IsNull(Texto17) Then
Me.subCustomers.Visible = False
'caso a combo esteja vazia o sub fica oculto
Me.subCustomers.Form.FilterOn = False
Else
parteNome = Texto17
Me.subCustomers.Form.Filter = "Telefone = " & parteNome
Me.subCustomers.Form.FilterOn = True
Me.subCustomers.Visible = True
End If
End Sub
a linha em negrito no cod ,eu removi ,pois com ela nao funcionou,só que sem ela o form nao filtra e exibe todos os nomes !!

Ola amigo,nos envie o bd pra ser mais facil ver o problema.
Abçs.

Obrigado,eis o BD,gostaria que ao digitar o telefone na combo telefone o sub filtrasse ,assim como acontese na combo nome.obrigado!
Pois a combo telefone nao esta fazendo a filtragem ,esta exibindo todos os registros!