If e consulta sql

Boa noite, gostaria da ajuda de vocês para a seguinte dúvida:

Tenho a seguinte consulta >
Dim strSql As String
strSql = "SELECT * WHERE datavencimento<=#" & Format(DateAdd("d", 90, Date), "mm/dd/yyyy") & "# ORDER BY idContratoNumeracao;"
Me!clst_Produtos.RowSource = strSql 'Caixa de listagem
filtroLista = filtro

Está retornando todos os produtos com data de vencimento no período de 90 dias. Entretanto, queria criar um código que fizesse o seguinte:

se o prazo estiver entre 30 dias, exibir na caixa de listagem 1; Se estiver entre 30 e 60 dias, na caixa de listagem2; Se for entre 60 e 90, caixa de listagem 3.

Obrigado

Ola bom dia !

poderia disponibilizar o projeto para melhor ajuda-lo ?

Está faltando algo ae...

"SELECT * FROM SuaTabela WHERE..."

O melhor será você fazer 3 consultas diferentes e alimentar as suas listas com cada uma.

Não existe necessidade de complicar o simples.

Segue o exemplo. O que queria fazer era o seguinte: quando tiver faltando 30 dias, apenas a lista dos 30 dias ficará preenchida, enquanto a outra dos 90 dias já ficará em branco. E assim em diante.