Visual Basic - problemas con un .filter

Estoy iniciandome en el visual basic 6.0 y estoy haciendo un programa, con el cual he tenido problemas para manejar dos variables. Este es el codigo que estoy utilizando, pero solo muestra la informacion de una variable. Quisiera que de favor alguien me ayudara y me pudiera decir en que estoy fallando y me ayudara con el codigo

Private Sub Command1_Click()

Me.Clientes.Clear
Me.ado.Recordset.Filter = "Dia= '" & InputBox("Ingrese el dia", "Buscar Dia") & " ' "
Do While Not Me.ado.Recordset.EOF
Me.ado.Recordset.Filter = “Ruta= ‘ ” & InputBox(“Ingrese ruta”, Buscar Ruta” & “ ‘ “
Do While Not Me.ado.Recordset.EOF
Me.Clientes.AddItem "Ruta " + Me.ado.Recordset!ruta + " " + Me.ado.Recordset!Dia
Me.Clientes.AddItem Me.ado.Recordset!Nombre
Me.Clientes.AddItem Me.ado.Recordset!Direccion
Me.Clientes.AddItem ""
Me.ado.Recordset.MoveNext
Loop
Loop
Me.ado.Refresh


End Sub

Gracias por su atencion

le das primero un filtro y despues otro.

fijas el filtro por dia y despues lo cambias por ruta, si quieres que te filtre por dia y por ruta incluye un and