Primeiro você tera que mudar o campo texto para data no banco de dados para evitar erros e problemas com instruções sql, agora para filtrar por periodo segie exemplo :
No exemplo abaixo alem do periodo inclui um outro campo caso você não precise dele é só tirar e se precisar de outros é so incluir deacordo com o campo extra que deixei na cor vermelha :
Private Sub CmdConsulta_Click()
On Error GoTo Trata_Erro
Dim lFormulaFFF As String
'Captura data inicial
lFormulaFFF = "({bolão.Data} = DATE(" & Mid$(DataInicial.Text, 7, 4) & "," & Mid$(DataInicial.Text, 4, 2) & "," & Mid$(DataInicial.Text, 1, 2) & "))"
lFormulaFFF = lFormulaFFF & " AND {bolão.Equipe} = '" & Equipe.Text & "'"
Me.MousePointer = 11
Crp.DataFiles(0) = App.Path & "olao.mdb"
Crp.ReportFileName = App.Path & "classificação.rpt"
Crp.SelectionFormula = lFormulaFFF
Crp.WindowState = crptMaximized
Crp.Destination = crptToWindow
Crp.Action = 1
Me.MousePointer = 0
Exit Sub
Trata_Erro:
MsgBox "Você NÃO Selecionou DADOS VÁLIDOS!!!!"
End Sub
