Combo Box faltando registros

Boa noite;

Criei um formulario, com uma combo onde pesquiso clientes por nome, e apliquei o codigo criado pelo JPaulo. Parece funcionar perfeitamente, mas percebi que ele nao esta buscando alguns registros da tabela que indico no codigo, e depois de verificar se existe algum filtro aplicado, de comparar o codigo com exemplos e de procurar no forum, tenho que recorrer aos senhores pra me socorrerem nesse assunto, por que ja queimei todo o fosfato possivel da minha cachola. Poderiam me ajudar? Abaixo vai o codigo:

Código:

Private Sub con_AfterUpdate()
'By JPaulo ® Maximo Access
On Error Resume Next
Me.con.Visible = False

Dim Db As DAO.Database
Dim rs As DAO.Recordset
Dim strsql As String
Me.btSalvar.enabled = True
On Error Resume Next
con.SetFocus

If con.Value > 0 Then
strsql = "SELECT * FROM TabSocios WHERE Nome = '" & con.Value & "'"
'aux.AbreConexao aux.chave
Set Db = CurrentDb
Set rs = CurrentDb.OpenRecordset(strsql, dbOpenDynaset)
If Not rs.BOF Then
Me.txtCódigo.Value = rs("Código")
Me.txtNome.Value = rs("Nome")
Me.txtDataNascimento.Value = rs("DataNascimento")
Me.txtGenero.Value = rs("Genero")
Me.txtComplemento.Value = rs("Complemento")
Me.txtEstado.Value = rs("Estado")
Me.txtAtivo.Value = rs("Ativo")
Me.txtEndereco.Value = rs("Endereco")
Me.txtNumero.Value = rs("Numero")
Me.txtBairro.Value = rs("Bairro")
Me.txtCidade.Value = rs("Cidade")
Me.txtCep.Value = rs("Cep")
Me.txtTelFIxo.Value = rs("TelFixo")
Me.txtTelCelular.Value = rs("TelCelular")
Me.txtEmail.Value = rs("Email")
Me.txtIdentidade.Value = rs("Identidade")
Me.txtIdade.Value = rs("Idade")
Me.txtCPF.Value = rs("CPF")
'Me.Dependentes.Value = rs("Dependentes")
Me.txtFoto.Value = rs("Foto")
rs.Close
Set rs = Nothing
Db.Close
Set Db = Nothing
End If
Me.txtNome.SetFocus
Me.con.Visible = False
Call fncCarregaCboC
End If
End Sub


Boa noite leo, poste um exemplo e de detalhes citando os objetos envolvidos.

Cumprimentos.

Ok, to enviando, converti pra .mdb. Se vc pesquisar o cliente Weber Pinto pela combo, nao localizara, mas pde verificar na tabela socios, ele é o registro com codigo 1. Esse e muitos outros nao estao aparecendo na combo.

O que esta acontecendo é que quando clico em pesquisar, a combo se habilita e me apresenta uma lista que é buscada na tabela TabSocios, mas nao estao sendo apresentados todos os registros. São 1447 registros incluidos e aparentemente há um limite pro numero de registros apresentado na combo, acho.

Obrigado

Boas Leo.. como anda este tópico?
Ele havia me sumido à lista

Cumprimentos.