[Resolvido]Filtro em Access usando VB6

Galera boa noite,
gostaria de saber como faço para fazer um filtre em duas colunas de uma tabela em Access.

Exemplo:
COLUNA DIA: SEGUNDA FEIRA
COLUNA HORARIO: 08:00 AS 10:00

Gostaria de pesquisar resultados que tenham esses valores em suas colunas.
estou usando o seguinte codigo, porém ele me retorna um erro de sintaxe:
diz que a conexão esta inválida ou fechada nesse contexto

segue o codigo que estou utlizando:

Código:

Private Sub cmb_filtro_Horario_Click()
Dim Item As ListItem
   lstAlunos.ListItems.Clear
   
   
    db.Open "Provider=microsoft.ace.oledb.12.0;User ID=Admin;Data Source=C:\Users\InforPrint\Downloads\Ribbon 2007-20190522T003724Z-001\Ribbon 2007\banco.accdb;Mode=Share Deny None;Persist Security Info=False;Jet OLEDB:System database='';Jet OLEDB:Database Password='10102020'"
   
       'rs.Open "select * from Turmas where Horario like'%" & cmb_filtro_Horario.Text & "%'", db, 3, 3
       rs.Open "Select *from Turmas where Dia Like'%" & cmb_filtro_Dia.Text & "%' And Horario like '%" & cmb_filtro_Horario.Text & "%', db, 3, 3 "

           Do Until rs.EOF
               Set Item = lstAlunos.ListItems.Add(, , rs!Codigo)
                    Item.SubItems(1) = "" & rs!ID
                   Item.SubItems(2) = "" & rs!Dia
                   Item.SubItems(3) = "" & rs!Horario
                   Item.SubItems(4) = "" & rs!Modalidade
                   Item.SubItems(5) = "" & rs!StatusAluno
                   Item.SubItems(6) = "" & rs!Curso

                   
                   
               rs.MoveNext
           Loop
       
   rs.Close: Set rs = Nothing
   db.Close: Set db = Nothing

obs: quando utilizado apenas para filtrar em uma coluna, ele funciona

Código:

rs.Open "select * from Turmas where Horario like'%" & cmb_filtro_Horario.Text & "%'", db, 3, 3

porém preciso filtrar em 2 colunas ao mesmo tempo para trazer a informação que necessito.

Alguem poderia me ajudar?

Resolvido