[Resolvido]Corrigir filtragem no form

Bom dia amigos,tentei fazer  correção ,sem sucesso!,preciso de um help!
Tenho um form onde filtro nomes pra exibir detlhes de cada id,porem o fazer a pesquisa,alguns nomes ,não são filtrados corretamente ,outros sim,como corrigir isso ?
Ex: ao digitar na combo, amanda biagi ,aparece,no sub ,todos os id com 4,e casas decimais do 4 ,4 ,41,42,43,44............
digitando outro nome como Ana Caroline Leite ,aparece todos com  a id 3,31,310,311,312.........,e assim sucessivamente,com 5 todos os ids 5.......,outros nomes sao filtrados corretamente ,,como fazer essa correçao?obrigado

Boa tarde

Teste

Private Sub cbocliente_AfterUpdate()
Dim parteNome As String

If IsNull(cbocliente) Then
Me.subCustomers.Visible = False
'caso a combo esteja vazia o sub fica oculto
Me.subCustomers.Form.FilterOn = False
Else
parteNome = cbocliente.Column(0)
Me.subCustomers.Form.Filter = "CódigoCliente Like '" & parteNome & "*'"
Me.subCustomers.Form.FilterOn = True
Me.subCustomers.Visible = True
End If
End Sub

BoaTarde,Assis ,não filtrou!tbm :
nada!!!

Ja tentei N formas dentre elas:
Me.subCustomers = "CódigoCliente",nada

Me.subCustomers = "cbocliente" ; 'CódigoCliente'"

kadhu

Eu tenho o 2007, e aqui filtro e aparece a data de nascimento, só daquele que eu seleciono

o meu tbm é 2007 ,tentou o nome kadu  na combo,se é um cliente que tem  id 4,todos nomes que tem os ids que começam 4 são exibidos e assim com todos os ids,pode postar seu exemplo por favor!como na imagem!
Não filtra:Se puder teste esses nomes ,por favor!
Adriana Biagi;
Ana Caroline Leite:
Ana Luiza:
e outros :
kadu.......,se estiver filtrando,pode postar,seu teste!por favor!

tentei esse
,tbm não
Me.RecordSource = "SELECT * FROM tblcliente " & " WHERE " & Me.cboCond & " like '*" & me.cboCond  & "*'"
Como fazer esse cod,,mostrar apenas o cliente da combo?

Private Sub cbocliente_AfterUpdate()
Dim parteNome As String

If IsNull(cbocliente) Then
Me.subCustomers.Visible = False
'caso a combo esteja vazia o sub fica oculto
Me.subCustomers.Form.FilterOn = False
Else
parteNome = cbocliente.Column(0)
Me.subCustomers.Form.Filter = "CódigoCliente Like '" & parteNome & "*'"
Me.subCustomers.Form.FilterOn = True
Me.subCustomers.Visible = True
End If
End Sub

Será ?????

vou testar,e ja te falo.obrigado

parteNome = cbocliente
Me.subCustomers.Form.Filter = "códigocliente = " & parteNome
parteNome = cbocliente.Column(0)
Me.subCustomers.Form.Filter = "CódigoCliente Like '" & parteNome & "*'"
Entendi ,vc mudou essas linhas,do cod la em cima,por isso ,não estava filtrando,muito obrigado Assis.