Problema con llenar cuadro de lista
He ido creando un código con varios ejemplos que encontré, para llenar un cuadro de lista, el problema que tengo es que no me filtra la cantidad correcta de registros y lo se porque hice un consulta para verificar que los datos fueran los correctos:
Código para llenar cuadro de lista(muestra 141 registros):
Me.Lts_programaciones.RowSource = "SELECT Identificacion,Nombre_Completo,Dia,Hora_descripcion FROM tblNotas" _
& " WHERE Dia BETWEEN #" & Me.txt_Fecha_Ini & "# AND #" & Me.txt_Fecha_Fin & "# AND PROCEDENCIA='nivel1' OR PROCEDENCIA='nivel2'"
Me.Lts_programaciones.Requery
txt_contador_programacion = Lts_programaciones.ListCount
Código de la consulta para verificar los datos(muestra 6 registros, es la cantidad correcta):
SELECT tblNotas.Dia, tblNotas.PROCEDENCIA
FROM tblNotas
WHERE (((tblNotas.Dia) Between [Formularios]![frmArchivo]![txt_Fecha_Ini] And [Formularios]![frmArchivo]![txt_Fecha_Fin]) AND ((tblNotas.PROCEDENCIA)="HOSPITALIZACION" Or (tblNotas.PROCEDENCIA)="EMERGENCIAS"));
Creí que era un tema de paréntesis "()", pero los coloque muy similar a los del ejemplo anterior y no funciono.
Agradezco si me pueden ayudar con este error en el código .