Filtrando errado no access

Senhores boa noite.

Desenvolvi o codigo para realizar um filtro no banco de dados access para o list viw, porem identifiquei que a lista não está vindo por completo.

Segue a baixo o código, a lista possui 545 resultados no banco de dados e ao ser listado só aparece 215


Dim escola As String
escola = CMB_CRMESCOLA.Text

Application.ScreenUpdating = False
Application.DisplayAlerts = False

'MODELO QUE RODA PORÉM ESTÁ FALTANDO DADOS

Set rs = New ADODB.Recordset
Call CONECTARBD

SQL = "SELECT * FROM Cadastro_escola "
SQL = SQL & "WHERE Escola like '" & escola & "%' "'este item possui 545 linhas no meu banco de dados e quadro roda so filtra 215, ficando linhas fora
SQL = SQL & "AND StatusMatricula like '%" & CRM_PRINCIPALCONTROLE.CMB_CRMSTATUS.Text & "%'"
SQL = SQL & "AND Nome like '" & CRM_PRINCIPALCONTROLE.TXT_CRMNOME & "%'"
SQL = SQL & "AND MesAniver like '%" & CRM_PRINCIPALCONTROLE.CMB_CRMMESANIV.Text & "'"
SQL = SQL & "AND DiaAniver like '%" & CRM_PRINCIPALCONTROLE.CMB_CRMDIAANIV.Text & "' "
SQL = SQL & "AND IDCliente like '" & CRM_PRINCIPALCONTROLE.CMB_CÓDIGOALUNO.Text & "%'"
SQL = SQL & "AND StatusBoleto like '%" & CRM_PRINCIPALCONTROLE.CMB_CRMSTATUSBOLETO.Value & "%'"
SQL = SQL & "AND Ingresso like '" & CRM_PRINCIPALCONTROLE.CMB_INGRESSO.Text & "%' "
SQL = SQL & "AND DataDescontoMaximo like '" & CRM_PRINCIPALCONTROLE.CMB_VENCIMENTO.Text & "%'"
SQL = SQL & "AND Turma like '" & CRM_PRINCIPALCONTROLE.CMB_TURMAS.Text & "%'"
SQL = SQL & "AND RAIndicacao like '" & CRM_PRINCIPALCONTROLE.CMB_INDICAÇÃO.Text & "%'"
SQL = SQL & "AND BoletoRetido like '" & CRM_PRINCIPALCONTROLE.CMBFILTROBOLETORETID.Text & "%'"
SQL = SQL & "AND Dependencia like '" & CRM_PRINCIPALCONTROLE.CMBFILTRODEPE.Text & "%'"
SQL = SQL & "AND AtivComple like '" & CRM_PRINCIPALCONTROLE.CMBATIVPEND.Text & "%'"
SQL = SQL & "AND ParcAtrasada like '" & CRM_PRINCIPALCONTROLE.CMBPARCATRA.Text & "%'"
SQL = SQL & "AND Adaptação like '" & CRM_PRINCIPALCONTROLE.CMBADPPENDE.Text & "%'"
SQL = SQL & "AND Estagio like '" & CRM_PRINCIPALCONTROLE.CMBESTAGIOPEND.Text & "%'"
SQL = SQL & "AND Aprovado like '" & CRM_PRINCIPALCONTROLE.CMBAPROV.Text & "%'"
SQL = SQL & "AND PendDocumentos like '" & CRM_PRINCIPALCONTROLE.CMBDOCSPENDENTE.Text & "%'"
SQL = SQL & "AND Eletiva like '" & CRM_PRINCIPALCONTROLE.CMBELETIVAPEND.Text & "%'"
SQL = SQL & "AND ObservacaoFinanceiro like '%" & CRM_PRINCIPALCONTROLE.TXTPROBLEMA.Text & "%'"
SQL = SQL & "AND DataMatricula >= #" & data_inicial & "#"
SQL = SQL & "AND DataMatricula <= #" & data_final & "#"
SQL = SQL & "AND TimeFormatura >= #" & datainicialformatura & "#"
SQL = SQL & "AND TimeFormatura <= #" & datafinalformatura & "#"


Set rs = New ADODB.Recordset

rs.Open SQL, CONEXAO, adOpenKeyset, adLockReadOnly

If rs.RecordCount = 0 Then

MsgBox "Nenhum Registro foi encontrado!", vbExclamation, "FILTRO"

If Not rs Is Nothing Then
       rs.Close
       Set rs = Nothing
End If


Call DESCONECTARBD

Exit Sub
End If

CRM_PRINCIPALCONTROLE.PRINCIPALListView.ListItems.Clear

While Not rs.EOF

With CRM_PRINCIPALCONTROLE.PRINCIPALListView

Set LISTA = CRM_PRINCIPALCONTROLE.PRINCIPALListView.ListItems.Add(Text:=rs(0))
LISTA.ListSubItems.Add Text:=rs(3) 'nome
LISTA.ListSubItems.Add Text:=rs(4) 'RA
LISTA.ListSubItems.Add Text:=rs(5) 'senha
LISTA.ListSubItems.Add Text:=rs(6) 'escola
LISTA.ListSubItems.Add Text:=rs(7) 'polo
LISTA.ListSubItems.Add Text:=rs( 'cidade
LISTA.ListSubItems.Add Text:=rs(9) 'estado
LISTA.ListSubItems.Add Text:=rs(10) 'curso aluno
LISTA.ListSubItems.Add Text:=rs(11) 'telefone contato
LISTA.ListSubItems.Add Text:=rs(12) 'telefone contato 2
LISTA.ListSubItems.Add Text:=rs(13) 'email
LISTA.ListSubItems.Add Text:=rs(14) 'modalidade
LISTA.ListSubItems.Add Text:=rs(15) 'data nascimento
LISTA.ListSubItems.Add Text:=rs(16) 'data de matricula
LISTA.ListSubItems.Add Text:=rs(17) 'Status matricula
LISTA.ListSubItems.Add Text:=rs(18) 'ingresso unisa
LISTA.ListSubItems.Add Text:=rs(19) 'data de formatura
LISTA.ListSubItems.Add Text:=rs(20) 'time de formatura
LISTA.ListSubItems.Add Text:=rs(21) 'mes aniversario
LISTA.ListSubItems.Add Text:=rs(22) 'dia aniversario
LISTA.ListSubItems.Add Text:=rs(23) 'corrigir mês
LISTA.ListSubItems.Add Text:=rs(24) 'cpf
LISTA.ListSubItems.Add Text:=rs(25) 'vendedor
LISTA.ListSubItems.Add Text:=rs(26) 'promoção ingresso
LISTA.ListSubItems.Add Text:=rs(27) 'mensalidade isenta
LISTA.ListSubItems.Add Text:=rs(28) 'qtda isenta
LISTA.ListSubItems.Add Text:=rs(29) 'data encerram
LISTA.ListSubItems.Add Text:=rs(30) 'boleto retido
LISTA.ListSubItems.Add Text:=rs(31) 'parcela atrasada
LISTA.ListSubItems.Add Text:=rs(32) 'aprovado
LISTA.ListSubItems.Add Text:=rs(33) 'dependencia
LISTA.ListSubItems.Add Text:=rs(34) 'adaptação
LISTA.ListSubItems.Add Text:=rs(35) 'eletiva
LISTA.ListSubItems.Add Text:=rs(36) 'atividade complementar
LISTA.ListSubItems.Add Text:=rs(37) 'estagio
LISTA.ListSubItems.Add Text:=rs(38) 'documentos
LISTA.ListSubItems.Add Text:=rs(39) 'doc pendentes
LISTA.ListSubItems.Add Text:=rs(40) 'boleto disponivel
LISTA.ListSubItems.Add Text:=rs(41) 'valor mes anterior
LISTA.ListSubItems.Add Text:=rs(42) 'valor mes atual
LISTA.ListSubItems.Add Text:=rs(43) 'valor boleto enviado
LISTA.ListSubItems.Add Text:=rs(44) 'data do pagamento do mês atual
LISTA.ListSubItems.Add Text:=rs(45) 'data do pagamento do boleto enviado
LISTA.ListSubItems.Add Text:=rs(46) 'dia do boleto com desconto máximo
LISTA.ListSubItems.Add Text:=rs(47) 'Status do boleto
LISTA.ListSubItems.Add Text:=rs(48) 'data que o aluno pagou o boleto enviado
LISTA.ListSubItems.Add Text:=rs(49) 'valor pago do boleto enviado
LISTA.ListSubItems.Add Text:=rs(50) 'observação financeira
LISTA.ListSubItems.Add Text:=rs(51) 'ra indicou
LISTA.ListSubItems.Add Text:=rs(52) 'Status indicou
LISTA.ListSubItems.Add Text:=rs(53) 'qtda indicação
LISTA.ListSubItems.Add Text:=rs(54) 'Status do aluno indicado
LISTA.ListSubItems.Add Text:=rs(55) 'conta para deposito
LISTA.ListSubItems.Add Text:=rs(56) 'agencia para deposito
LISTA.ListSubItems.Add Text:=rs(57) 'pix
LISTA.ListSubItems.Add Text:=rs(58) 'data pagto cash
LISTA.ListSubItems.Add Text:=rs(59) 'status do pgto cash
LISTA.ListSubItems.Add Text:=rs(60) 'observação vendas
LISTA.ListSubItems.Add Text:=rs(63) 'Turma
LISTA.ListSubItems.Add Text:=rs(64) 'CICLO
LISTA.ListSubItems.Add Text:=rs(69) 'mês aniversario
LISTA.ListSubItems.Add Text:=rs(70) 'dia aniversario

End With
rs.MoveNext
Wend
If Not rs Is Nothing Then
       rs.Close
       Set rs = Nothing
End If
Call DESCONECTARBD
Set list = Nothing

Call contar_CRMPrincipalcontrole

Application.ScreenUpdating = True
Application.DisplayAlerts = True


alguém pode me ajudar?

Tem como verificar o conteúdo da variável SQL?

Olá Luciano,

Pelo que eu percebi, vc está usando o Access como banco de dados e sua aplicação roda no Excel, correto?

Fazer uma análise de código sem os devidos objetos fica mais complicado de te ajudar.
Por gentileza, disponibilize uma cópis do banco de dados e da aplicação para análise e solução do problema.

Valeu

Att,

Alexandre Fim

Um outro detalhes em seu código você determina que somente os registros que atendam todas as linhas sejam "impressos". Sendo assim, talvez os restante dos registros (330) não atendam a TODAS os critérios do seu código.