[Resolvido] Filtros

Boa noite

Como sempre, depois de muito investigar na net e não encontrar, peço ajuda.

Faço meus relatórios com DataReport sem Data Environment e ficam muito bons, mas estou encontrando problema pra filtrar por exemplo:

Filtrar dados entre data inicial e data final e de

funcionários X do periodo data inicial-data final

nas subs abaixo, que estão funcionando bem, só consigo filtrar uma data e só consigo filtrar por funcionário.

[u]Private Sub cmdData_Click() 'filtra por data[/u]
On Erro GoTo trataerro

If TxtDataInicial.Text <> "" Then

 consulta2 ("select * from Cons_Comissoes where data LIKE '" & TxtDataInicial & "' order by Nome")
 Call RelatVendServ
 Else
 MsgBox "Informe uma Data válida", vbInformation
 TxtDataInicial.SetFocus
 End If
 Exit Sub

trataerro:
TxtDataInicial = ""
End Sub

[u]Private Sub cmdFunc_Click() 'filtra por funcionário[/u]
On Erro GoTo trataerro

If txtFunc.Text <> "" Then

 consulta2 ("select * from Cons_Comissoes where Nome LIKE '" & txtFunc & "' order by Data")
 Call RelatVendServ
 Else
 MsgBox "Informe um nome de Cliente", vbInformation
 txtFunc.SetFocus
 End If
 Exit Sub

trataerro:
txtFunc = ""
End Sub

Se alguem puder dar alguma idéia, agradeço.
Nereu